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.

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