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;