[[egostar]]

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.