Fechas caprichosas

[Novás]

Hola a todos:

Haber si alguién descubre el misterio porque a mi me sobrepasa:

//ShowMessage(timetostr(dateHoraFin.Time));
  if (((dateHoraInicio.Time=strtotime('0:00:00'))and(dateHoraFin.Time<>strtotime('0:00:00')))
     or(timetostr(dateHoraFin.Time)>timetostr(dateHoraInicio.Time)))then

Cuando tengo en datehoraInicio.Time=0:00:00 y en dateHoraFin.Time=8:00:00 entra en el else de este if, pero si no comento el ShowMessage entonces entra en el if, cosa que agradezco. Por que hace esto no lo se, si alguien lo sabe que llame a Expediente X

Otra cosa... Por que los días el los toma como que van desde las 0:00:00 hasta las 23:59:99 y luego me dice que las 8:00 es más temprano que las 0:00.

SOCORROOOOOO!!!!

[delphi.com.ar]

1. No te recomiendo nunca comparar fechas con algo tan estático como dateHoraInicio.Time=strtotime('0:00:00')), a no ser que tu aplicación modifique siempre la variables que da formato a esta hora (ShortTimeFormat, LongTimeFormat).

2. Es importante recordar que un TTime, no deja nunca de ser un TDateTime que no es mas que un número Double. La parte entera de este número corresponde a la fecha, y la parte decimal a la hora.

Si quieres comparar la fecha-hora, puedes hacerlo directamente FechaHora1 < FechaHora2... si solo quieres comparar la hora, puedes prescindir de la parte entera Frac(FechaHora1) < Frac(FechaHora2)
Para saber si la hora es 0:00:00 (no asignada), puedes preguntar si Frac(FechaHora) = 0.

Saludos!

[[Lepe]]

Otra cosa... Por que los días el los toma como que van desde las 0:00:00 hasta las 23:59:99 y luego me dice que las 8:00 es más temprano que las 0:00

la respuesta te la da delphi.com.ar

2. Es importante recordar que un TTime, no deja nunca de ser un
TDateTime

Ten en cuenta siempre la fecha de cada datetime.

Sugiero que mires las funciones:
MinutesBetween
SecondsBetween
HoursBetween
dayOf(datetime)
...

Puede que te sirvan, eso si, quizás necesites plantear el
problema de otra forma.

La biblioteca de funciones para trabajar con fechas y horas en
Delphi es muy amplia, y te ahorra muchos dolores de cabeza, te
lo digo por experiencia

Saludos