Arbeitstage berechnen

[LogoPie]

Juhu klappt wunder bar
Hier mal das Gesamtergebnis für alle anderen.

Delphi-Quellcode:

Function Arbeitstage( Beginn,Ende:TDateTime):LongInt; 
Var Tage:Integer;     
    i   :Integer;
Begin
  Tage := 0;
  i    := 1;
  While Beginn <= Ende do Begin     
    If DayOfWeek(Beginn) in [2..6] Then     
    Inc( Tage );  
    Beginn := Beginn + i;  
  End;
  Result := Tage; 
End;

procedure TForm1.Button1Click(Sender: TObject); 
begin
     EditTage.Text := IntToStr (Arbeitstage (Beginn.Date,Ende.Date));
end;  

end.

Nun stehe ich schon vor dem nächsten Problem
das heißt es ist nur ein kleines.
Das einbinden von Feiertagen.
Bei festen Tagen wie Silvester oder Weihnachten sollte es keine Probleme geben,
aber wie berechne ich z.B Pfingsten oder Ostern.