Arbeitstage berechnen

[shmia]

Also ich würde die Feiertagsliste vom Zählen der Arbeitstage getrennt halten.
Dies lässt sich mit einer Callback-Funktion erreichen.
siehe auch Code-Library: http://www.delphipraxis.net/internal...ct.php?t=22228

Delphi-Quellcode:

type
// callback function for holidays
THolidayCallback = function(const d:TDateTime):boolean;

function NumWorkDays(StartDate,EndDate:TDateTime; callback:THolidayCallback):Integer;
Begin
   Result := 0;
   While StartDate <= EndDate do
   begin
      If (DayOfWeek(StartDate) in [2..6]) and not callback(StartDate) Then
         Inc(Result);
      StartDate := StartDate + 1;
  End;
End;