Alguien puede ayudarme con este problemas de horas - VB-MUNDO

ikki_26 · #1 (**permalink**) 23-11-2005, 05:09:50

Tengo el siguiente problema:

Quisiera suma todas las columnas de la grilla, pero los valores son horas.... De la sgte pantalla q coloco

albmartin · #2 (**permalink**) 23-11-2005, 06:15:09

Mira a ver si te vale algo como esto:

Código:

while not rcs.eof
         lnghoras = lngHoras + datepart("h", rcs!logged)
         lngminutos = lngminutos + datepart("n", rcs!logged)
         lngsegundos = lngsegundos + datepart("s", rcs!logged)

         rcs.movenext
wend

lngminutos = lngminutos + lngsegundos \ 60
lngHoras = lngHoras + lngminutos \ 60
lngminutos = lngminutos mod 60
lngsegundos = lngsegundo mod 60

Creo que con esto valdra, espero que te sirva, un saludo.

ikki_26 · #3 (**permalink**) 24-11-2005, 00:53:13

Este es un flexgrid y no son valores de una tabla son valores sueltos... como hago eso? no son valores de tablas...

Memin · #4 (**permalink**) 24-11-2005, 02:23:37

Que tal ikki_26 , mira se me ocurre ago así....

Espero que te sirva..... Hasta Luego......

ikki_26 · #5 (**permalink**) 24-11-2005, 03:02:25

No se si estara bien?

************************************************** *********
For j = 1 To frmDetalle.gCiclos.Rows - 1

frmDetalle.Text1 = Val(frmDetalle.Text1) + DatePart("n", frmDetalle.gCiclos.TextMatrix(j, 1))

frmDetalle.totales.TextMatrix(1, 0) = Format(Val(frmDetalle.Text1) / 60, "##") & ":" & Format(Val(frmDetalle.Text1) Mod 60, "###")

frmDetalle.Text2 = Val(frmDetalle.Text2) + DatePart("n", frmDetalle.gCiclos.TextMatrix(j, 2))

frmDetalle.totales.TextMatrix(1, 1) = Format(Val(frmDetalle.Text2) / 60, "##") & ":" & Format(Val(frmDetalle.Text2) Mod 60, "###")

frmDetalle.Text3 = Val(frmDetalle.Text3) + DatePart("s", frmDetalle.gCiclos.TextMatrix(j, 3))

frmDetalle.totales.TextMatrix(1, 2) = Format(Val(frmDetalle.Text3) / 60, "##") & ":" & Format(Val(frmDetalle.Text3) Mod 60, "###")

frmDetalle.Text4 = Val(frmDetalle.Text4) + Val(frmDetalle.gCiclos.TextMatrix(j, 4))
frmDetalle.totales.TextMatrix(1, 3) = frmDetalle.Text4

frmDetalle.Text5 = Val(frmDetalle.Text5) + Val(frmDetalle.gCiclos.TextMatrix(j, 5))
frmDetalle.totales.TextMatrix(1, 4) = frmDetalle.Text5

frmDetalle.Text6 = Val(frmDetalle.Text6) + DatePart("s", frmDetalle.gCiclos.TextMatrix(j, 6))

frmDetalle.totales.TextMatrix(1, 5) = Format(Val(frmDetalle.Text6) / 60, "##") & ":" & Format(Val(frmDetalle.Text6) Mod 60, "###")

frmDetalle.Text7 = Val(frmDetalle.Text7) + DatePart("s", frmDetalle.gCiclos.TextMatrix(j, 7))

frmDetalle.totales.TextMatrix(1, 6) = Format(Val(frmDetalle.Text7) / 60, "##") & ":" & Format(Val(frmDetalle.Text7) Mod 60, "###")

frmDetalle.Text8 = Val(frmDetalle.Text8) + DatePart("s", frmDetalle.gCiclos.TextMatrix(j, 8))

frmDetalle.totales.TextMatrix(1, 7) = Format(Val(frmDetalle.Text8) / 60, "##") & ":" & Format(Val(frmDetalle.Text8) Mod 60, "###")

frmDetalle.Text9 = Val(frmDetalle.Text9) + DatePart("s", frmDetalle.gCiclos.TextMatrix(j, 9))

frmDetalle.totales.TextMatrix(1, 8) = Format(Val(frmDetalle.Text9) / 60, "##") & ":" & Format(Val(frmDetalle.Text9) Mod 60, "###")

Next j

************************************************** **********