Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Dias Transcurridos (https://www.clubdelphi.com/foros/showthread.php?t=1086)

cso2000 03-06-2003 20:48:39

Dias Transcurridos
 
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 03-06-2003 21:01:25

Hola:

Mira si te sirve esta función:

Código:

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

Un Saludo

__marcsc 03-06-2003 23:21:42

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

Saludos.

cso2000 03-06-2003 23:25:32

Muchas Gracias me sivio bien lode DateTimeToTimeStamp

por otra parte utilizo Delphi 3 y 4.

andres1569 04-06-2003 00:53:30

marcsc escribió:

Cita:

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 04-06-2003 18:42:03

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 04-06-2003 19:01:39

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 04-06-2003 19:16:28

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


La franja horaria es GMT +2. Ahora son las 14:31:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi