Calcular numero de dias entre dos fechas

[abraham]

Código Delphi [-]
Unit DateUtils 

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

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