DateTimeToStr funzt nich :(

[Nuclear-Ping]

Der Schritt in die Delphi Hilfe ist wohl nur wenigen Padawans bekannt ...

Zitat von Delphi Hilfe:

StrToDate, DayOfWeek (Beispiel)

Zu diesem Beispiel gehören ein Eingabefeld, eine Beschriftung (Label) und eine Schaltfläche. Wenn der Benutzer ein Datum in dem den Einstellungen in der Systemsteuerung entsprechenden Format (für USA: MM/TT/JJ) eingibt, wird dieser String in einen TDateTime-Wert konvertiert. Dieser Wert wird dann zum Anzeigen des Wochentages verwendet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sonntag';
  days[2] := 'Montag';
  days[3] := 'Dienstag';
  days[4] := 'Mittwoch';
  days[5] := 'Donnerstag';
  days[6] := 'Freitag';
  days[7] := 'Samstag';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' ist ein ' + days[DayOfWeek(ADate)];
end;