Calcular numero de dias entre dos fechas

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

[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

Código Delphi [-]
 
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:

Código Delphi [-]
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