DateTimePicker: Kalenderwoche im "Edit" anzeigen

[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