einem Datum nur Arbeitstage hinzuaddieren

[hauiclaudi]

Will einem Datum z.B 100 Tage hinzuaddieren um einen neuen Termin zu erhalten. Wichtig ist aber, dass die 100 Tage nur Arbeitstage sind.

Er muss also beim aufaddieren jeweils den Samstag und Sonntag weglassen. Ich habe zwar eine Routine geschrieben wo er prüft ob es ein Samstag oder Sonntag gibt, wenn ja dann überspring das usw.

Das Problem ist aber, dass er viele Datensätze berechnen muß und dieser Vorgang dann sehr lange dauert.
Gibt es eine Funktion (Routine) die nur Arbeitstage addiert?

var
neuesDatum : TdateTime ;

..
neuesDatum := Date + nurArbeitstage(100) ;

[shmia]

Zitat von hauiclaudi:

Will einem Datum z.B 100 Tage hinzuaddieren um einen neuen Termin zu erhalten. Wichtig ist aber, dass die 100 Tage nur Arbeitstage sind.

Er muss also beim aufaddieren jeweils den Samstag und Sonntag weglassen. Ich habe zwar eine Routine geschrieben wo er prüft ob es ein Samstag oder Sonntag gibt, wenn ja dann überspring das usw.

Das Problem ist aber, dass er viele Datensätze berechnen muß und dieser Vorgang dann sehr lange dauert.
Gibt es eine Funktion (Routine) die nur Arbeitstage addiert?

siehe: http://www.delphipraxis.net/internal...ct.php?t=22228

Delphi-Quellcode:

neuesDatum := Date;
// nur mit einer Schleife werden auch Feiertage & Ferien berücksichtigt
for i := 1 to 100 do
   neuesDatum := NextWorkingDay(neuesDatum, HolidayCallback);