Werktage Berechnung

[youuu]

So habe mir mal diese kleine Funktion gebastelt.

Delphi-Quellcode:

function Arbeitstage(const startDate: TDate): Integer;
var
  Days: Integer;
  i: Integer;
begin
  Days := DaysBetween( startDate, Date() ) + 2;
  Result := 0;
  for i := 0 to Days - 1 do begin
    if DayOfTheWeek (startDate + i) < 6 then
      Result := Result + 1;
  end;
end;

Feiertage mal außen vor gelassen