Berechnungen mit Arbeitstagen

[himitsu]

Theoretisch sollte es möglich sein, dieses auch ohne Schleife zu berechnen,
aber irgendwie wollte das gard nicht so klappen

- schauen wo in der Woche man sich gerade befindet
- das Datum zum Wochenanfang zurückrechnen und sich die Tage in der aktuellen Woche merken
- Restzeit durch 5 mal 7 (Ganzzahldivision ... Rest merken)
- Produkt nehmen und die gemerten Tage/Reste wieder dazurechnen
- Datum - diese Summe = Anfang
(nja, so in etwa irgendwie)


aber mit 'ner Schleife ginge es wohl auch so
(DayOfTheWeek: 1=Montag ... 7=Sonntag)

Delphi-Quellcode:

Type TDayOfTheWeekSet = Set of 1..7;

Function IncDays(D: TDateTime; Days: Integer = 1; Ignored: TDayOfTheWeekSet = [6, 7]): TDateTime;
  Var i: Integer;

  Begin
    i := 0;
    While Days > 0 do Begin
      If not (DayOfTheWeek(D + i) in Ignored) Then Dec(Days);
      Inc(i);
    End;
    While Days < 0 do Begin
      If not (DayOfTheWeek(D + i) in Ignored) Then Inc(Days);
      Dec(i);
    End;
    Result := D + i;  // wegen Rundungsfehlern erst hier einrechnen
  End;

Function DecDays(D: TDateTime; Days: Integer = 1; Ignored: TDayOfTheWeekSet = [6, 7]): TDateTime;
  Begin
    Result := IncDays(D, -Days, Ignored);
  End;

[edit]
die Definition des SET vergessen

nja, wenn ich den Baitrag von marabu so seh, dann lieg ich schonmal mit meiner Überlegung nicht ganz falsch