Dias, horas y minutos hasta una fecha

[pabloe9k]

Hola a todos.
Quisiera saber como puedo hacer para mostrar en un label la cantidad de días, horas, minutos y segundos hasta una fecha (fija) determinada.
Estuve haciendo pruebas con "DaysBetween", pero con eso solo obtengo los días restantes (entero), no puedo saber las horas, minutos y segundos.

Agradezco de antemano la ayuda.
Saludos.

[[duilioisola]]

Código Delphi [-]
// Dias que faltan hasta fin de Año
FormatDateTime('"Faltan "dd" días "hh" horas "nn" minutos y "ss" segundos', StrToDate('31/12/2014') - Now);

[[duilioisola]]

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

Empezado por duilioisola

Código Delphi [-]
// Dias que faltan hasta fin de Año
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));

[pabloe9k]

Empezado por duilioisola

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

Excelente!
Muchísimas gracias.