Me tome la libertad de modificar la rutina de poliburro con sabados y domingos, además te recomiendo que leas la ayuda de Delphi sobre el manejo de fechas.
Código Delphi
[-]function TForm1.GetSundays(IniDate: TDateTime; EndDate: TDateTime): Integer;
var
Sundays: Integer;
i,Dias : Integer;
begin
Sundays := 0;
Dias := DaysBetween(IniDate,EndDate);
for I := 0 to dias - 1 do begin
If DayOfWeek(IniDate+i) = 1 then Sundays := Sundays + 1;
If DayOfWeek(IniDate+i) = 7 then Sundays := Sundays + 1;
end;
Result := SunDays;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(inttostr(GetSundays(strtodate('01/05/2007'),strtodate('30/06/2007'))));
end;
Salud OS.