Que funcion trunca una fecha

[dec]

Hola,

En Delphi cuentas con los tipos "TDate" y "TDataTime". El primero incluye solamente la fecha, el segundo la fecha y la hora. Tal vez podrías asignar las fechas en cuestión a unas variables de tipo "TDate" y luego compararlas mediante la función "CompareDate" (hay también "CompareDateTime").

Nota: También puedes comparar las fechas con los operadores habituales, por ejemplo:

Código Delphi [-]
 var
   fecha1, fecha2: TDate;
 begin
   fecha1 := Now;
   fecha2 := Now -2;
   if fecha1 >= fecha2 then
     Caption := DateToStr(fecha1);
 end;