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;
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;