procedure getDayOfTheWeekToString(AValue : integer); var aDay : string; begin aDay := DayOfTheWeekToString(AValue); message_dlg(aDay); end;
Wert Deutsch Englisch 0 Montag Monday 1 Dienstag Tuesday 2 Mittwoch Wednesday 3 Donnerstag Thursday 4 Freitag Friday 5 Samstag Saturday 6 Sonntag Sunday