Calcular numero de dias entre dos fechas

[vero]

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]

Saludos!!!

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

[[José Luis Garcí]]

Prueba esto

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

Un saludo desde Canarias.

[vero]

Muchas gracias José Luis Garcí, me ayudo mucho



Saludos

[abraham]

Código Delphi [-]
Unit DateUtils 

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

[cokocool]

excelente, muchas gracias a Jose Luis y a Abraham

[juaarias]

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

[cokocool]

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]

alli resto una fecha cualquiera y la fecha actual.

[Neftali [Germán.Estévez]]

+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.

Empezado por juaarias

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]

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]

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

[alej.villa]

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]

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]]

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]

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]]

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

[alej.villa]

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]]

menciona que mensaje te aperece

[alej.villa]

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.