formato de hora que excede las 24:00
 

Una super consulta

Estoy acumulando las horas trabajadas día a día en una tabla.

Var
H1:TdateTime;
Vhora: String[5]:
...
{ en bucle }
h1:=h1+StrToDateTime(hora_de_dia);
{ h1 es mi total de horas en periodo }
...
{ lo registro en la tabla adecuada }
minutos:=round(h1*1440)
horas:=minutos div 60;
minutos:=minutos mod 60;
registro:=Format(‘%.2d:%.2d’,[horas,minutos]);

Hasta allí todo bien, tengo el total de horas trabajadas en un periodo de días determinado en h1.

Pero mi problema radica cuando quiero recoger esa información para utilizarla en otras cosas como reportes o mas sumatorias.
Como ven, ese tipo de totales, exceden las 24 horas y cuando recojo la info con

H2:=StrToDateTime(registro);

Me sale un mensaje de error que dice algo así:

Raises excepcion class EconvertError with message ’25:10’ is not a valid date and time ...

Como recupero ese valor que dice no es un valido formato de fecha y hora?

Muchas Gracias.

Es normal que te dé error porque lo que estás almacenando no es una hora correcta, de hecho lo que debes de almacenar no son horas, sino un número, yo en vista de lo que quieres hacer despreciaría los segundos y almacenaría todo en minutos a la hora de recuperarlo no habría más que hacer los cálculos oportunos mediante una función por ejemplo y presentarlo en horas y minutos.

Un Saludo.

Hola anitra_cattivo, analiza este hilo que quizas te sirva para encontrar la manera de sumar tus horas.
Saludos