TurboPL Referenz

DayOfWeek Prozedur

Syntax

DayOfWeek(Value: DateTime): String
WoTag(Wert: DateTime): String

Kategorie

Basisfunktion

Erklärung

Zahl als Datum interpretieren und Wochentag ermitteln.

Beispiel

Am 12.Mai 1997 liefert der folgende Aufruf die Zeichenkette "Montag":

DayOfWeek(Today)

Hier noch ein kleines Programm, das nähere Angaben zu einem Geburtstag ausgibt (Die Anweisungen nach Message müssen natürlich in einer Zeile stehen):

procedure Geburtstags-Info
       vardef Geburtsdatum: REAL;
       Input("Geben Sie ihr Geburtsdatum ein");
       Geburtsdatum := Val(T-Eingabe);
       Message("Sie sind an einem " + DayOfWeek(Geburtsdatum) + " in der " + Str(Week(Geburtsdatum)) + ". Kalenderwoche geboren");
endproc

Siehe auch

Day, Month, Week, Year, WeekDayNo, Datum und Uhrzeit