Delphi - Problema con IncHour()

   
Vista:

Problema con IncHour()

Publicado por JCx (78 intervenciones) el 10/10/2011 13:09:13
Hola,



necesito sumar horas a una fecha inicial y luego extraer el dia del año.



Comienzo por el 13/7/2005 0:00 que es el 38546. Luego sumo horas con:

fechaAux:=inchour(fechaAux,1);

y extraigo el dia juliano con :

stringgrid7.cells[2,i]:=inttostr(DayOfTheYear(fechaAux));



y asi sucesivamente, me da bien hasta la hora 23, pues en la 24 no me da exacto, me da 38546.99999 y al extraer el dia me da el dia inicial. sin embargo al mostrar la fecha con:

:=datetostr(fechaAux)+' '+timetostr(fechaaux);

da el valor correcto de 14/7/2005 0:00.



Que puedo hacer para que al sumar horas, en la 24 me de el dia siguiente exacto?



gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder