Hallo Delphi-Freunde/innen,
Meine Frage: Ich benötige das Datum aller Freitage im Format (YYYY-MM-DD) beginnend am 2012-08-16 bis Jahresende 2022.
Mit 'DayOfWeekGerman' (Delphi-Praxis) und dann 'IncDay' habe ich herausbekommen das der 1. Freitag ab o.g. Anfangs-Datum der
2012-08-17 war. Soweit sogut.
Wenn ich nun mit IncWeek arbeite und die Monatsgrenze überspringe gibt mir dann Delphi wieder das richtige Datum und den
richtigen Tag an. ?? Die gleiche Frage gilt auch für IncYear ??
Vielen Dank für Eure Antworten
Wendelin (Wolfgang)
Hallo Wolfgang
Ich habe es nicht ausprobiert, allenfalls müsstest Du auf "DayOfWeek" oder ähnliches zurückgreifen (vermute aber mal nicht).
Theoretisch kannst Du es Dir aber auch einfach machen:
Delphi-Quellcode:
Var
Datum : TDate;
begin
Datum := StrToDate('17.08.2012');
Repeat
Memo1.Lines.Add(DateToStr(Datum));
Datum := Datum + 7;
Until Datum > StrToDate('31.12.2022');
end;