Foros Club Delphi - Dias, horas y minutos hasta una fecha

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Dias, horas y minutos hasta una fecha (https://www.clubdelphi.com/foros/showthread.php?t=86012)

pabloe9k

05-06-2014 23:19:23

Dias, horas y minutos hasta una fecha

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

05-06-2014 23:32:49

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

05-06-2014 23:37:12

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 (Mensaje 477393)

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

06-06-2014 00:28:37

Cita:

Empezado por duilioisola (Mensaje 477394)

Excelente!
Muchísimas gracias.

La franja horaria es GMT +2. Ahora son las 03:19:15.