Cuenta atrás.

[alfredosg19]

¡Hola a todos!, estoy haciendo una pequeña aplicación personal para añadir a otros programas, se trata de calcular el tiempo que queda para una fecha o el tiempo que pasa desde una fecha. El problema es que con las funciones de Delphi DaysBetween por ejemplo puedo calcular los días que faltan para que llegue la cita, con YearsBetween puedo calcular los años que faltan... Pero lo que quiero es que me salga el mensaje "Faltan 3 años, 4 meses, 4 días" por ejemplo. Y no me vale calcular los segundos que quedan con la función daysBetween y multplicarlo por 30, porque ¿y si estamos en un més con 31?¿y si ese año es bisiesto?.
He hecho un array con los meses del año y una función que calcula si estamos en un año bisiesto o no, ¿alguien tiene alguna idea?. Muchas gracias.

[[Lepe]]

Simplemente restamos las dos fechas y listo, que delphi se encargue de los problemas.

Unicamente tenemos que controlar los años a mano, ya que la resta de fechas nos da el año base 1900, que obviamente no es el valor que queremos.

Código Delphi [-]
  d,d1:TDateTime;
  yearsouble;
begin

  d := encodedatetime(2006,5,12,10,0,0,0);
  d1 := d-Now;
  years := YearsBetween(d,Now);
  Memo1.Lines.Add(FloatToStr(years)+' años '+IntToStr(MonthOf(d1))
+' meses  y '+ IntToStr(dayof(d1))+ ' dias' );

[raiden1813]

Empezado por Lepe

Simplemente restamos las dos fechas y listo, que delphi se encargue de los problemas.

Unicamente tenemos que controlar los años a mano, ya que la resta de fechas nos da el año base 1900, que obviamente no es el valor que queremos.

Código Delphi [-]
  d,d1:TDateTime;
  yearsouble;
begin

  d := encodedatetime(2006,5,12,10,0,0,0);
  d1 := d-Now;
  years := YearsBetween(d,Now);
  Memo1.Lines.Add(FloatToStr(years)+' años '+IntToStr(MonthOf(d1))
+' meses  y '+ IntToStr(dayof(d1))+ ' dias' );

Hey gracias me sirvio de mucho este pequeño codigo, gracias men!