GetDate in Delphi (erledigt)

[Wolfgang Mix]

Moin DPler,

unter TP gab es die Funktion GetDate, die aus dem heutigen Datum
Jahr,Monat,Tag und Wochentag als Word zurückgab.
Das habe ich mir provisorisch ersmal so gebastelt:

Delphi-Quellcode:

s:=FormatDateTime('d,m,y',date);
s:=datetostr(date);
d:=StrToInt(copy(s,1,2));
m:=StrToInt(copy(s,4,2));
y:=StrToInt(copy(s,7,4));

Geht das auch weniger umständlich?


Gruß

Wolfgang