Zitat von
mkinzler:
Mit DayOfTheWeek() bekommst du die Nummer des tages. wenn du dann noch einen array mit den Wochentagsbezeichnungen anlegst, kannst du dann den tag als Wort erhalten
Ein zusätzlich (manuell erstelltes) Array ist nicht notwendig, das es bereits in den SysUtils was feines in der Art gibt: ShortDayNames bzw LongDayNames.
(LongMonthNames und ShortMonthNames gibt es auch noch
)
Um also den Wochentag aus einem MonthCalender zu erhalten:
Delphi-Quellcode:
Label1.Caption := ShortDayNames[DayOfWeek(MonthCalendar1.Date)];
//--ergibt für den 13.Mai2007 Sa
Label1.Caption := LongDayNames[DayOfWeek(MonthCalendar1.Date)];
//--ergibt für den 13.Mai2007 Samstag
Wenn du allerdings das gewählte Datum beispielweise in der Form
Samstag, 13.Mai 2007 haben möchstest, dann schau dir mal die Funktion FormateDateTime() an!