Foros Club Delphi - rpt. manager: meses y días transcurridos entre dos fechas

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

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - rpt. manager: meses y días transcurridos entre dos fechas (https://www.clubdelphi.com/foros/showthread.php?t=53410)

dandia28

20-02-2008 14:40:32

rpt. manager: meses y días transcurridos entre dos fechas

Como puedo hacer en report manager para poder expresar la dieferencia entre dos fechas de la siguiente forma: "3 meses y 5 días".

Saludos, Daniel

ContraVeneno

20-02-2008 15:56:08

Código Delphi [-]  ValorFecha:=FechaFin-FechaIni;
  Dias:=Trunc(ValorFecha);
  //Meses:=Trunc((ValorFecha)/30);
  Horas:=Trunc(Frac(ValorFecha)*24);
  Minutos:=Trunc((Frac(Frac(ValorFecha)*24))*60);
  //Segundos:=Trunc((Frac((Frac(Frac(ValorFecha)*24))*60))*60);
  CalculaTiempo:=inttostr(Dias)+' Días, '+inttostr(Horas)+' Horas, '+inttostr(Minutos)+' Min.';

O la más fácil sería utilizar las funciones "MonthsBetween" y "DaysBetween"

La franja horaria es GMT +2. Ahora son las 04:37:27.