Buenas.

Tengo un formulario continuo con un campo de Fecha/Hora (C_Horas).

En el pie del formulario un campo independiente con Origen de control:

=Suma([C_Horas]) cuyo nombre es vSumaTotalHoras

otra campo también independiente con Origen de control:

por último el campo donde muestro la suma de horas de todos los registros:

Pues la suma de tres registros donde el campo C_Horas tenga 5 minutos cada registro me da 14.

Alguna sugerencia?

Gracias y un saludo.

Se supone que el control vSumaTotalHoras contiene horas y minutos.

Se supone que el control vMinutos es para mostrar solo los minutos (sospecho que el redondeo es la causa de que no te cuadre)

No entiendo la necesidad de crear un tercer campo para mostrar la parte entera de horas y los minutos de forma formateada. ¿No es lo mismo que aparece en vSumaTotalHoras?

En cualquier caso, para mostrar una hora:minutos disponemos de TimeSerial

Gracias Xavi.
Realmente el campo vSumaTotalHoras, viene del código:
vHorasRealizadas = Round(DateDiff("n", (HEntrada], [HSalida]) / 60, 2)

con lo cual no tiene exactamente horas y minutos, sino como ves la diferencia de entrada salida con el redondeo y 2 decimales.

Probe también con este otro código, con la diferencia de que no suma las horas de los registros, sino en un mismo registro las horas de los distintos días de la semana, pero hace lo mismo:

Dim vHorasRealizadasL, vHorasRealizadasM As Variant, vTotal As Single, vMinutosRealizados As Double
'Calculo Lunes
vHorasRealizadasL = Nz(Round(DateDiff("n", [EntradaL], [SalidaL]) / 60, 2), 0)
'Calculo Martes
vHorasRealizadasM = Nz(Round(DateDiff("n", [EntradaM], [SalidaM]) / 60, 2), 0)

vTotal = vHorasRealizadasL + vHorasRealizadasM
vMinutosRealizados = Round((TOTAL - Int(TOTAL)) * 60, 0)
Me.Horas.Value = Int(TOTAL) & ":" & Format((vMinutosRealizados), "00")
Me.J_TotHoras.Value = Me.Horas.Value

Sinceramente me gusta más este último código, pero como digo tampoco funcionada correctamente.

Perdón por no explicarme bien.

En un formulario continuo tengo 10 campos Fecha/Hora para cada día de la semana (5 para "EntradaX" y 5 para "SalidaX").
Ahora mediante el siguiente código obtengo el tiempo de cada día en el campo correspondiente (vL, vM, etc.), lo sumo y el resultado lo paso a un campo de texto de nombre TotalHoras:
Este es el código:

Dim vL, vM, vX, vJ, vV As Variant
Dim vTotal As Single, vMinutosRealizados As Double

'Calculo Lunes
vL = Nz(Round(DateDiff("n", [EntradaL], [SalidaL]) / 60, 2), 0)
'Calculo Martes
vM = Nz(Round(DateDiff("n", [EntradaM], [SalidaM]) / 60, 2), 0)
'Calculo Miercoles
vX = Nz(Round(DateDiff("n", [EntradaX], [JSalidaX]) / 60, 2), 0)
'Calculo Jueves
vJ = Nz(Round(DateDiff("n", [EntradaJ], [SalidaJ]) / 60, 2), 0)
'Calculo Viernes
vV = Nz(Round(DateDiff("n", [EntradaV], [SalidaV]) / 60, 2), 0)

vTotal = vL + vM + vX + vJ + vV
vMinutosRealizados = Round((vTotal - Int(vTotal)) * 60, 0)
Me.TotalHoras.Value = Int(vTotal) & ":" & Format((vMinutosRealizados), "00")

Con este código, si por ejemplo los 3 primeros días ha trabajado de 7:00 a 7:35, cada día ha trabajado 35 minutos, lo que da como resultado 1:45 minutos. Pues el campo "TotalHoras" me muestra 1:44.

Qué es lo que está mal?

Espero haberme explicado un poquito mejor.

Gracias y saludos.

Gracias.

Voy a probarlo y te cuento.

Perfecto.

Muchas gracias.

Este hilo se puede cerrar satisfactoriamente