Dias Transcurridos

[cso2000]

Hola a Todos:

Tengo problemas con dos fechas lo unico que quiero es saber cuantos dias an transcurrido de una fecha a otra sin meses ni nada solo los dias estoy probando varias cosas con fechas pero me resultas cosas raras como numeros negativos y cosas haci

porfa ayudenme


Gracias de antemano.

[andres1569]

Hola:

Mira si te sirve esta función:

function DiasEntreFechas (d1, d2 : TDateTime) : Integer;
begin
  result := DateTimeToTimeStamp(d2).Date - DateTimeToTimeStamp(d1).Date;
end;

Un Saludo

[__marcsc]

Si no quieres reinventar la rueda y utilizas Delphi 6 puedes utilizar la función DaysBetween de la unit DateUtils

Saludos.

[cso2000]

Muchas Gracias me sivio bien lode DateTimeToTimeStamp

por otra parte utilizo Delphi 3 y 4.

[andres1569]

marcsc escribió:

Si no quieres reinventar la rueda y utilizas Delphi 6 puedes utilizar la función DaysBetween de la unit DateUtils

¿Reinventar la rueda? Creo que quien ha reinventado la rueda ha sido Borland, yo llevo utilizando aquella función desde hace años.


Salu2

[Bacterion]

Eso o restar las dos fechas (mejor lo del Delphi 6, pero en su falta)
La parte entera es el número de días...

NumDias := Trunc(Fecha1 - Fecha2);

[andres1569]

Hola:

Tienes razón, Bacterion, así es más sencillo, aunque la solución que tu planteas nos obliga a viajar hacia atrás en el tiempo confiando en que se cumpla la teoría de la relatividad por la que el binomio espacio-tiempo es una linea curva que tarde o temprano se vuelve a encontrar, y tal vez si hoy es 4-06-2003 y queremos llegar al 7-06-2003 haya que recorrer una cantidad de años considerable.

Mejor sería así: NumDias := Trunc(Fecha2 - Fecha1);

Un saludo

[Bacterion]

Prefiero los Deloran, para esos menesteres,
¡pero tampoco dije que fecha puse en Fecha1 ni en Fecha2!