Hallo Zusammen!
Ich habe folgende Frage:
Wie läßt sich das im TDateTimePicker eingestellte Datum in dem selben Format wie es im Picker erscheint in einer andere Komponente (z.B. einem Label) darstellen?
Also z.B. als "Donnerstag, 12. Februar 2004".
Ich habe es mit
Delphi-Quellcode:
procedure TForm1.comboDatumChange(Sender: TObject);
var
datum : String;
t,m,j : String;
iJahr,
iMonat,
iTag : Word;
begin
DecodeDate(comboDatum.Date, iJahr, iMonat, iTag);
{Wochentag}
case DayOfWeek(iTag) of
1 : t := 'Sonntag';
2 : t := 'Montag';
3 : t := 'Dienstag';
4 : t := 'Mittwoch';
5 : t := 'Donnerstag';
6 : t := 'Freitag';
7 : t := 'Samstag';
end; {case DayOfWeek}
{Monat}
case iMonat of
1 : m := 'Januar';
2 : m := 'Februar';
3 : m := 'März';
4 : m := 'April';
5 : m := 'Mai';
6 : m := 'Juni';
7 : m := 'Juli';
8 : m := 'August';
9 : m := 'September';
10 : m := 'Oktober';
11 : m := 'November';
12 : m := 'Dezember';
end; {ende case iMonat}
j := IntToStr(iJahr);
datum := t
+ ', '
+ IntToStr(iTag)
+ '. '
+ m
+ ' '
+ j;
edit1.Text := datum;
end;
versucht, wobei aber leider der Tag im Label immer der selbe bleibt (also z:B. "Donnerstag"), wenn der Monat oder das Jahr im Picker verändert wird...
[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]