Wenn ich das richtig verstanden habe, so willst du den aktuellen Tag, Monat und das Jahr in einer eigenen Variablen haben?
Das kannst du mit der users
DateUtils machen.
Delphi-Quellcode:
var
ts : TDateTime;
d, m, y : Word;
begin
ts := now(); // Aktuellen Zeitstempel holen, oder einen anderen nutzen
d := DayOf(ts);
m := MonthOf(ts);
y := YearOf(ts);
{
Es gibt da auch noch
- HourOf()
- MinuteOf()
- SecondOf()
}
end;
Edit:
Kann es sein, dass irgendwas mit dem roten Kasten nicht ganz passt? oO schon wieder keine Anzeige...
@himitsu: auch eine interessante Lösung, die ich noch nicht kannte!
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)