Calcular numero de dias entre dos fechas

[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