Datum als variable mit Wechsel

[DeddyH]

Die (in meinen Augen) einfachste Möglichkeit:

Delphi-Quellcode:

var heute: TDate;
begin
  heute := date;
  if heute > StrToDate('01.05.2009') then
    Variable := FSK10
  else if heute > StrToDate('01.12.2008') then
    Variable := HWK10
  else if heute > StrToDate('01.09.2008') then
    Variable := Schiessmichtot
  ...
end;

Man muss dabei nur darauf achten, dass man die Vergleichswerte absteigend sortiert.