Foros Club Delphi - Calcular numero de dias entre dos fechas

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página

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

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Calcular numero de dias entre dos fechas (https://www.clubdelphi.com/foros/showthread.php?t=1335)

vero	11-06-2003 10:11:27

Calcular numero de dias entre dos fechas

Lo que deseo es saber es el numero de dias que hay entre dos fechas, 29/01/2003 al 05/02/2003
¿cuantos dias hay entre las dos fechas?

Muchas Gracias

igest2000

11-06-2003 10:16:07

Saludos!!!

Bueno pues prueba a buscar en el foro, porque este tema ya ha sido tratado hace no mucho....

José Luis Garcí

11-06-2003 10:33:30

Prueba esto

Código Delphi [-]    label1.Caption:=inttostr(trunc(strtodate('05/05/2003')-strtodate('01/05/2003'))) ;

Un saludo desde Canarias.

vero	13-06-2003 19:28:23

Muchas gracias José Luis Garcí, me ayudo mucho

Saludos

abraham

01-08-2007 15:21:42

100%

Código Delphi [-]Unit DateUtils 

var 
  i:integer;
begin
  i:= DaysBetween(DateTimePicker2.DateTime,DateTimePicker1.DateTime);
  Edit1.Text:=inttostr(i);
end;

cokocool

05-05-2011 18:57:30

excelente, muchas gracias a Jose Luis y a Abraham

juaarias

25-05-2011 05:12:34

daysBetween consulta

al hacer daysbetween de dos fechas iguales me da como resultado 1 esto es asi?

cokocool

25-05-2011 07:00:14

es mejor usar date y no now
con esto me da los dias entre dos fechas
otra opcion y creo ke la mejor es:

LabeledEdit2.Text:=FloatToStr(StrToDate(LabeledEdit1.Text)-date);

cokocool

25-05-2011 07:01:27

alli resto una fecha cualquiera y la fecha actual.

Neftali [Germán.Estévez]

25-05-2011 09:50:24

+1 para DaysBetween

Código Delphi [-]  edit1.Text := IntToStr(DaysBetween(StrToDate('29/01/2003'), StrToDate('05/02/2003')));
  edit2.Text := IntToStr(DaysBetween(EncodeDate(2003,01,29), EncodeDate(2003,02,05)));

En elsegundo caso utilizando EncodeDate es más seguro debido a que segun el formato de fecha configurado, delphi podría coger las primeas cadenas como incorectas (es decir los primeros dígitos como mes y los segundos como día -ingles-), con el EncodeDate seguro que no pasa.

Cita:

Empezado por juaarias (Mensaje 401236)

al hacer daysbetween de dos fechas iguales me da como resultado 1 esto es asi?

Raro. ?¿?¿

A mi esto me devuelve 0 (como debe ser).

Código Delphi [-]edit3.Text := IntToStr(DaysBetween(StrToDate('29/01/2003'), StrToDate('29/01/2003')));

cokocool

26-05-2011 20:55:24

dias trascurridos con signo

en mi caso yo necesito los dias transcurridos y si ya son dias pasados con respecto a la fecha actual en signo negativo.
el DaysBetween me da valores absolutos como debe ser. Pero yo los necesito con el signo, por eso uso el:

. . . ;
ShowMessage( floatToStr( StrToDate(Edit1.Text)- date ) );
. . . ;

obviamente en el Edit1 hay una fecha con el formato: dd/mm/yyyy.

cokocool

26-05-2011 20:57:28

dias entre dias iguales es cero

con esa linea de codigo tambien resulta 0 (cero) si resto fechas iguales.

alej.villa

26-05-2011 20:58:26

buenas y como hago si quiero que me tome solo los dias entre dos fechas sin incluir los fines de semana
por ejemplo quiero que me diga que cantidad de dias hay entre estas dos fechas
02/05/2011 y 20/05/2011 pero que no me tome los fines de semana deberian ser 14
de verdad si me podrian ayudar se los agradeceria

alej.villa

27-05-2011 18:46:55

muy bien con ese codigo que paso abraham, pero como tengo que hacer para que no me incluya los fines de semana es decir que solo me tome los dias de la semana?

si alguien tiene alguna recomendacion, o algun sitio donde pueda orientarme se lo agradeceria

oscarac

27-05-2011 18:53:29

Prueba con la función WeekOf que se encuentra en la unidad DateUtils...

Dia de Semana := WeekOf(Now);

te devuelve un numero donde 1 es domingo y 7 es Sabado

tendrias que hacer un algoritmo que no te considere esos dias

entonces no podras usar DaysBetween

POdrias usar un For algo asi

Código Delphi [-] 
Incremento :=0;
SumarDias := 0;
For x:= FechaInicial to FechaFinal do
Begin
  if (Weekof (FechaInicial + incremento) <> 1) or (Weekof (FechaInicial + incremento) <> 7) Then
   inc(sumarDias)
Inc (Incremento)
end;

Seria bueno que cuando hagas pregntnas, plantees todo el contexto... porque lo ultimo que comentas ya no se resuelven con las respuestas que te han dado anteriormente

Ejemplo...

Necesito saber los dias entre 2 fechas teniendo en cuenta que no debo consideran los fines de semana....

esto se entiende mejor

roman

27-05-2011 19:41:25

Bueno, es que alej.villa no es quien originalmente hizo la pregunta :)

Pienso que su duda podría resolverse así:

Código Delphi [-]DaysBetween(Fecha1, Fecha2) - 2*WeeksBetween(Fecha1, Fecha2);

// Saludos

oscarac

27-05-2011 21:01:14

ohhhh
no me habia dado cuenta de la fecha inicial :P:rolleyes:

alej.villa

30-05-2011 01:42:18

roman muy bien tu respuesta me funciona perfecto pero hay un detalle cuando quiero sumar solo la semana un ejemplo de lunes a viernes me da un valor menos por ejemplo del 2/05/2011 al 06/02/2011 me dice que solo hay 4 dias y deberian ser 5 dias, oscarac tienes razon no formule bien mi pregunta de todas maneras gracias por haberme entendido. pero hay un error en el codigo que me diste cuando lo estoy compilando, yo estaba tratando de hacerlo de esa manera pero no me funciona

oscarac

30-05-2011 04:02:08

menciona que mensaje te aperece

alej.villa

30-05-2011 19:02:09

oscarac en el codigo que me pasaste podrias explicarme ¿la variable x es de tipo TDateTime? y otra cosa cuando dices if (Weekof (FechaInicial + incremento) <> 1) or (Weekof (FechaInicial + incremento) <> 7) Then
inc(sumarDias)
Inc (Incremento)
¿esto debe llevar un else? y ¿las dos comparaciones son de la fecha inicial?
el mensaje de error que me da es tipos incompatiples en el ciclo for debido a que declaro la x como integer.

La franja horaria es GMT +2. Ahora son las 19:15:20.

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página