|
Hola a todos mi solucion fue, si le interesa a alguien
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;
Codigo escrito por Luisgutierrezzb del foro, gracias a todos y especialmente a Dec.
Chauuuuuu
__________________
Siempre hay un primer momento para todo.
|