[Lazarus-es] comparacion de fechas

[Antonio Évora]

El 17/02/13 20:38, Paola Bruccoleri escribió:
> claro... usé la función datetimetostr() y veo que:
>
> EndOfTheMonth(dFechaContrato) + 1; devuelve 01/02/2012 23:59:59
> y
> StartOfTheMonth(IncMonth(dFechaContrato, 1)); devuelve 01/02/2012
>
> por eso la comparación falla con los siguientes cálculos al sumar 1 
> año, etc.
>
> aunque ambas funciones devuelven TDateTime..
Hola Paola,
Yo en las funciones que tengo armadas uso un 
strtodate(datetostr(Fecha)), en tu caso: 
strtodate(datetostr(EndOfTheMonth(dFechaContrato) + 1))
Con esto las comparaciones las hace correctamente (que como comenta Maxi 
lo que hace es truncar la información referente a la hora)

Saludos.