Ten en cuenta que TDateTime lo que guarda internamente es un número.
La parte entera son días y la parte decimal es la parte transcurrida del día.
Por lo tanto puedes mejorar est para que te devuelva un mensaje diferente cuando solo falten horas
Cita:
Empezado por duilioisola
Código Delphi [-]
if ((StrToDate('31/12/2014') - Now) >=1) then
ShowMessage(FormatDateTime('"Faltan "dd" días "hh" horas "nn" minutos y "ss" segundos', StrToDate('31/12/2014') - Now))
else
ShowMessage(FormatDateTime('"Faltan "hh" horas "nn" minutos y "ss" segundos', StrToDate('31/12/2014') - Now));
|