Ah, also sozusagen +5 Arbeitstage...
Du kannst das iterativ machen und bei jedem Zwischenergebnis auf Samstag/Sonntag/Feiertag prüfen.
Delphi-Quellcode:
Function AddiereArbeitstage(Datum : TDateTime; AT : Integer) : TDateTime;
Const
WeekDays = [2,3,4,5,6];
Begin
Assert (DayOfWeek(Result)
in WeekDays,'
Datum muss ein Wochentag sein');
Assert (AT > 0, '
Funktion zählt nur nach vorne');
Result := Datum;
While AT>0
Do begin
Result := Result + 1;
if DayOfWeek(Result)
in WeekDays
then
dec(AT);
End
End;
Bestimmt gibt es auch eine Formel, aber o.g. kleine Schleife lässt sich mit geeigneten Mitteln auvch so erweitern, das
deutsche Feiertage (TSRCal) auch berücksichtigt werden.