Wochentag rückgabe bei TMonthCalender

[raiguen]

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!