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

[himitsu]

Delphi-Quellcode:

DecodeDate(Now, Y, M, D);

[s.h.a.r.k]

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!

[Wolfgang Mix]

Danke beiden, hatte ich schon wieder vergessen

[s.h.a.r.k]

Dafür gibts doch die DP :mrgreen:

[himitsu]

Zitat:

Zitat von s.h.a.r.k

Dafür gibts doch die DP :mrgreen:

tdolle Programmierer

[s.h.a.r.k]

[OT]
Nach dieser Auffassung müssten wir fast den Hilfetext anpassen :zwinker:
[/OT]