Hallo,
es liegt ein Datum vor (bsp. heute). zu diesem tag werden
+ N (bsp. 14 Tage) Tage berechnet.
Nun möchte ich prüfen ob
Datum + N ein Feiertag, ein SA oder ein SO ist. Falls dies der Fall ist, dann verwende
Datum + N + 1 (bzw. Datum + N + i) und prüfe dies erneut ob Feiertag/SA/SO.
Ich habe bereits die aktuellen Feiertage in einem Array. Und die Prüfung auf SA/SO habe ich mit "FormatSettings.ShortDayNames[DayOfWeek( ... )" umgesetzt;
nur fehlt mir momentan die integrierung von beidem...
Wie würdet ihr dies lösen?
Folgendes besteht bereits:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27:
| procedure TFormDates.FormShow(Sender: TObject); var Feiertage : TFeiertageTable; i, FristDauer: Integer; DatumHeute, DatumFrist: TDate; DatumFristShortDay: String; begin
Feiertage := GetFeiertageTable(CurrentYear);
FristDauer := 14; DatumHeute := Date(); DatumFrist := IncDay(DatumHeute, FristDauer); DatumFristShortDay := FormatSettings.ShortDayNames[DayOfWeek( DatumFrist )];
for i := Low(Feiertage) to High(Feiertage) do begin if DatumFrist = Feiertage[i].Date then begin FristDauer := FristDauer + 1; DatumFrist := IncDay(DatumHeute, FristDauer); DatumFristShortDay := FormatSettings.ShortDayNames[DayOfWeek( DatumFrist )]; end; end; end; |