Tema: leeer fechas en visual basic
Ver Mensaje Individual
  #13 (permalink)  
Antiguo 25/05/2011, 08:16
Avatar de lokoman
lokoman
 
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic
Al final quedó asi:
Código vb: 
Ver original
  1. Dim Cn As ADODB.Connection
  2. Dim Rs As ADODB.Recordset
  3.  
  4. Private Sub Form_Load()
  5.     Dim FechaIni As Date, FechaFin As Date
  6.     
  7.     Set Cn = New ADODB.Connection
  8.     Set Rs = New ADODB.Recordset
  9.     
  10.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  11.             "Data Source=C:\ims\informesemanal.MDB;" & _
  12.             "Persist Security Info=False"
  13.     Rs.ActiveConnection = Cn
  14.     Rs.CursorType = adOpenKeyset
  15.     Rs.LockType = adLockOptimistic
  16.  
  17.     'InicioSemana = FormatDateTime(Date - Weekday(Date) - 1, vbGeneralDate)
  18.     'FinSemana = FormatDateTime(Date - Weekday(Date) + 5, vbGeneralDate)
  19.  
  20.     'fechaini = Format(InicioSemana, "MM-DD-YYYY")
  21.     'fechafin = Format(FinSemana, "MM-DD-YY")
  22.     FechaIni = "13/05/2011"
  23.     FechaFin = "19/05/2011"
  24.  
  25.     Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & FechaIni & "# AND #" & FechaFin & "#"
  26.  
  27.     If Not Rs.EOF And Not Rs.BOF Then
  28.         While Not Rs.EOF
  29.             If Rs.Fields("dia") = "viernes" Then
  30.                 totalAltoriesgo = Rs.Fields("AltoRiesgo") + Rs.Fields("AltoRiesgoV")
  31.                 TxtMArV = Rs.Fields("AltoRiesgo")
  32.                 TxtMBrV = Rs.Fields("BajoRiesgo")
  33.                 TxtVArV = Rs.Fields("AltoRiesgoV")
  34.                 TxtVBrV = Rs.Fields("BajoRiesgoV")
  35.             End If
  36.  
  37.             If Rs.Fields("dia") = "lunes" Then
  38.                 TxtMArL = Rs.Fields("AltoRiesgo")
  39.                 TxtMBrL = Rs.Fields("BajoRiesgo")
  40.                 TxtVArL = Rs.Fields("AltoRiesgoV")
  41.                 TxtVBrL = Rs.Fields("BajoRiesgoV")
  42.             End If
  43.             
  44.             If Rs.Fields("dia") = "martes" Then
  45.                 TxtMArM = Rs.Fields("AltoRiesgo")
  46.                 TxtMBrM = Rs.Fields("BajoRiesgo")
  47.                 TxtVArM = Rs.Fields("AltoRiesgoV")
  48.                 TxtVBrM = Rs.Fields("BajoRiesgoV")
  49.             End If
  50.             
  51.             If Rs.Fields("dia") = "miércoles" Then
  52.                 TxtMArMi = Rs.Fields("AltoRiesgo")
  53.                 TxtMBrMi = Rs.Fields("BajoRiesgo")
  54.                 TxtVArMi = Rs.Fields("AltoRiesgoV")
  55.                 TxtVBrMi = Rs.Fields("BajoRiesgoV")
  56.             End If
  57.             
  58.             If Rs.Fields("dia") = "jueves" Then
  59.                 TxtMArJ = Rs.Fields("AltoRiesgo")
  60.                 TxtMBrJ = Rs.Fields("BajoRiesgo")
  61.                 TxtVArJ = Rs.Fields("AltoRiesgoV")
  62.                 TxtVBrJ = Rs.Fields("BajoRiesgoV")
  63.             End If
  64.             
  65.             Rs.MoveNext
  66.         Wend
  67.     End If
  68.     
  69.     Rs.Close
  70.     
  71. 'LLAMADA A LA SUMA DE LOS TOTALES
  72.     Suma_Totales
  73. End Sub
  74.  
  75. Private Sub Form_Unload(Cancel As Integer)
  76.     Cn.Close
  77.     Set Cn = Nothing
  78. End Sub
  79.  
  80. Sub Suma_Totales()
  81. 'TOTALES ALTO RIESGO
  82.     TxtTArV = Val(TxtMArV.Text) + Val(TxtVArV.Text) 'num1 + num2
  83.     TxtTArL = Val(TxtMArL.Text) + Val(TxtVArL.Text) 'num5 + num6
  84.     TxtTArM = Val(TxtMArM.Text) + Val(TxtVArM.Text) 'num9 + num10
  85.     TxtTArMi = Val(TxtMArMi.Text) + Val(TxtVArMi.Text) 'num13 + num14
  86.     TxtTArJ = Val(TxtMArJ.Text) + Val(TxtVArJ.Text) 'num17 + num18
  87.     
  88. 'TOTALES BAJO RIESGO
  89.     TxtTBrV = Val(TxtMBrV.Text) + Val(TxtVBrV.Text) 'num3 + num4
  90.     TxtTBrL = Val(TxtMBrL.Text) + Val(TxtVBrL.Text) 'num7 + num8
  91.     TxtTBrM = Val(TxtMBrM.Text) + Val(TxtVBrM.Text) 'num11 + num12
  92.     TxtTBrMi = Val(TxtMBrMi.Text) + Val(TxtVBrMi.Text) 'num15 + num16
  93.     TxtTBrJ = Val(TxtMBrJ.Text) + Val(TxtVBrJ.Text) 'num19 + num20
  94.  
  95.  
  96. 'TOTALES GENERALES
  97.     TxtMArT.Text = Val(TxtMArV.Text) + Val(TxtMArL.Text) + Val(TxtMArM.Text) + Val(TxtMArMi.Text) + Val(TxtMArJ.Text)
  98.     TxtVArT.Text = Val(TxtVArV.Text) + Val(TxtVArL.Text) + Val(TxtVArM.Text) + Val(TxtVArMi.Text) + Val(TxtVArJ.Text)
  99.     
  100.     TxtMBrT.Text = Val(TxtMBrV.Text) + Val(TxtMBrL.Text) + Val(TxtMBrM.Text) + Val(TxtMBrMi.Text) + Val(TxtMBrJ.Text)
  101.     TxtVBrT.Text = Val(TxtVBrV.Text) + Val(TxtVBrL.Text) + Val(TxtVBrM.Text) + Val(TxtVBrMi.Text) + Val(TxtVBrJ.Text)
  102.     
  103.     TxtTArV.Text = Val(TxtTArV.Text) + Val(TxtTArL.Text) + Val(TxtTArM.Text) + Val(TxtTArMi.Text) + Val(TxtTArJ.Text)
  104.     TxtTBrV.Text = Val(TxtTBrV.Text) + Val(TxtTBrL.Text) + Val(TxtTBrM.Text) + Val(TxtTBrMi.Text) + Val(TxtTBrJ.Text)
  105. End Sub

Me confunden los nombres de los TEXTBOXs...