Contar dias de la semana entre fechas

[lolobs]

Hola a todos!
Me gustaria saber cómo puedo saber cuantos lunes hay entre un rango de fechas. Por ejemplo,cuantos lunes hay entre el 1/9/2003 y el 14/9/2003.
Existe alguna función que me devuelva eso?.
Utilizo Delphi 7.:confused:

[marcoszorrilla]

No me consta la existencia de dicha función, pero puedes probar con esta idea:

procedure TForm1.Button1Click(Sender: TObject);
var
dIni:Tdate;
dFin:Tdate;
nDias:Integer;
begin
dIni:=date - 3;
dFin:=date + 29;
nDias:=0;

While dIni <= dfin do
begin


if FormatDateTime('ddd',dIni) = 'lun' then
nDias:= nDias + 1;

dIni:= dIni +1;

end;

ShowMessage('Hay '+IntToStr(nDias)+' lunes');
end;


También puedes utilizar la función DayOfWeek.

Un Saludo.