horas que excedan las 24:00
Publicado por Rodolfo (27 intervenciones) el 22/12/2003 22:43:36
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.
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.
Valora esta pregunta


0