Die Aufgabenstellung ist nicht ausreichend beschrieben. Wenn immer 5 Arbeitstage zugezählt werden sollen, dann kann man gleich +7 rechnen. Sollen auf das Datum 5 Tage zugezählt werden und wenn das dann ein Samstag oder Sonntag ist, wird der darauffolgende Montag genommen, käme folgendes in Frage:
Delphi-Quellcode:
const
{ 1 = Sonntag }
cAddDays: array[1..7] of Integer = (5, 7, 6, 5, 5, 5, 5);
var
alt, neu: TDateTime;
begin
...
neu := alt + cAddDays[DayOfWeek(tag)];
...
end;