Hm...
Delphi-Quellcode:
var
x : Integer;
begin
x := Trunc(Datum);
case x of
39095: Label1.Caption := '13. Januar 2007';
39096: Label1.Caption := '14. Januar 2007';
39097: Label1.Caption := '15. Januar 2007';
end;
end;
Alles vor dem Komma eines DateTime Wertes ist das Datum, alles danach ist die Uhrzeit.
Wir schneiden also einfach die Uhrzeit ab und können ohne weiteres ein Case auf den Datumsanteil machen ;>