David, tomate un poquito de tiempo en ver todas las funciones sobre fechas, son muchas y seguro que encuentras lo que buscas. La ayuda de delphi viene muy bien sobre ese tema.
Por cierto S.M.S. eso mismo es lo que hace la rutina (sin convertir a Tdate):
Código Delphi [-]
if ANow < AThen then
Result := AThen - ANow
else
Result := ANow - AThen;
Un saludo de nuevo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Lepe fecha: 19-05-2005 a las 15:43:53.
|