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

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]

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


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.

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

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


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í:


DaysBetween(Fecha1, Fecha2) - 2*WeeksBetween(Fecha1, Fecha2);


// Saludos

[oscarac]

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

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

[alej.villa]

le cambie la variable x al tipo Tdatetime y me dice otro error, el mensaje que da es este (For loop control variable must have ordinal type) :S no la entiendo

[oscarac]

lo he corregido de esta manera


procedure TForm1.Button1Click(Sender: TObject);
var SumarDias:Integer;
Fecha :TDateTime;
begin
SumarDias := 0;
Fecha := fechaIni.Date;
While FechaFin.Date >= Fecha do
begin
if ( DayOfWeek (Fecha) <> 1) and ( DayOfWeek (fecha) <> 7) Then
Begin
inc(sumarDias);
end;
fecha := Fecha + 1;
end;
Label1.Caption := IntToStr(SumarDias)
end;


Pruebalo y comentas

[alej.villa]

gracias oscarac por tu codigo me funciona igual que el que me paso roman
que da una diferencia de 1 dia, la resolvi sumandoselo al final asi: :)

procedure TForm1.Button1Click(Sender: TObject);
var SumarDias:Integer;
Fecha :TDateTime;
begin
SumarDias := 0;
Fecha := fechaIni.Date;
While FechaFin.Date >= Fecha do
begin
if ( DayOfWeek (Fecha) <> 1) and ( DayOfWeek (fecha) <> 7) Then
Begin
inc(sumarDias);
end;
fecha := Fecha + 1;
end;
Label1.Caption := IntToStr(SumarDias+1)
end;

aunque cuando sumo todo un año me da una diferencia de 1 dia pero no voy a tener registros de un año jeje
de todas maneras gracias por haberme ayudado y a roman tambien,
ahora bien he buscado en otros post y en google para ver como programo un botom para importar datos puede ser de excel preferiblemente a una base de datos en sql server 2005, si sabes de algun post o una pagina donde pueda guiarme me avisas por favor
y Gracias nuevamente