DateTimePicker: Kalenderwoche im "Edit" anzeigen

[hoika]

Hallo,

wie im Titel beschrieben möchte ich gern
nach der Auswahl aus dem Kalender (dort zeige ich die Kalenderwoche schon an),
die Kalenderwoche des ausgewählten Tages anzeigen.

Bisher zeigt mir Format = 'ddd dd.MM.yyyy' zwar das Datum schön, aich siche aber sowas wie

ddd dd.MM.yyyy (XX), wobei XX die Kalenderwoche ist.


Unter .Net gibt es ein CustomFormat mit einem Callback-Mechanismus,
unter Win32 nicht (das XX wird dann entsprechend vom Programm umgewandelt).

Kennt jemand sowas (nat. umsonst ;) ) für Win32. ?

Danke


Heiko

[marabu]

Hallo Heiko,

geht es nicht so?

Delphi-Quellcode:

function FormatDateTime(const Format: string; DateTime: TDateTime): string;
begin
  Result := SysUtils.FormatDateTime(SysUtils.Format(Format, [WeekOf(DateTime)]), DateTime);
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  ShowMessage(FormatDateTime('ddd dd.mm.yyyy (%.2d)', Now));
end;

Freundliche Grüße

[hoika]

Hallo,

schon,
aber er soll es mir im DateTimePicker im Edit anzeigen.


Heiko

[hoika]

Hallo,

keiner eine Idee ? ;/


Heiko

[DeddyH]

Ganz dirty: ein normales Edit drüberlegen und dort die formatierte Ausgabe anzeigen.

[hoika]

Hallo,

boa, is ja echt dirty ;)

*Lappen hol*


Dann müsste ich praktisch nach dem OnClick auf dieses Edit
das selbige verstecken und den DTP fokussieren.
Mal sehen.

Verwunderlich ist nur, dass MS zwar die KW im Kalender anzeigen kann,
aber bei der Formatierung vergessen hat.

Danke


Heiko