Problema con IncHour()

[Anel Hernandez]

Si,

lo ke planteas es correcto, pero si a la hora 24 despues de haber aplicado el incHour() le aplicas :=inttostr(DayOfTheYear(fechaAux)) para saber el dia juliano toma el numero del dia con .999 y te da el dia anterior no el ke empieza a las 0:00.

pruebalo y veras, porfa!


gracias!

[ecfisa]

Hola.

Ahora si te entiendo y es tál cual comentas. La verdad no he tenido ocasión de aplicar ese caso, seguramente sea el comportamiento de la función.

Supongo que una solución sería:

Código Delphi [-]
 
  if Hora_a_Evaluar = 24 then
    ShowMessage(IntToStr(DayOfTheYear(fechaAux) + 1));

Saludos.

[Anel Hernandez]

si, gracias,

lo ke la llamada aDayOfTheYear(fechaAux) la hago dentro de un writln que lleva varios string y copy y strtofloat etc y de esa manera se me complica el codigo.

si se pudiera corregir el delDayOfTheYear(fechaAux) para que quedara todo en una sola linea...

mil gracias al que aporte!

[Anel Hernandez]

al final he resuelto combrobando la hora despues del IncHour():
if HourOf(fechaAux)=0 then fechaAux:=round(fechaAux);

si lo hago antes corro el riesgo de errar si una serie comienza en una hora=0.

gracias