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 :p 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.
:p :p :D :D :D :p :p

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); :D:D:D:D:D

Un saludo

[Bacterion]

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