Restar fechas

[luisgutierrezb]

Código Delphi [-]
 Var
   x,y:TDateTime;
   Resultado:Integer;
 Begin
   x := EncodeDate(2005, 12, 25); //es año, mes, dia en la codificacion 
   y := EncodeDate(2005, 11, 22);
   Resultado := Trunc(x) - Trunc(y); //resultado debe tener 33
   ...
 End;