Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Datum ohne Samstag Sonntag

   
    by Iwo Asnet, 3. Jul 2012
  Ah, also sozusagen +5 Arbeitstage...
  Du kannst das iterativ machen und bei jedem Zwischenergebnis auf Samstag/Sonntag/Feiertag prüfen.
  
  Function AddiereArbeitstage(Datum : TDateTime; AT : Integer) : TDateTime;
  Const
  WeekDays = ;
  Begin
  Assert (DayOfWeek(Result) in WeekDays,'Datum muss ein Wochentag sein');
  Assert (AT > 0, 'Funktion zählt nur nach vorne');
  Result := Datum;