Zitat von
Delphi Hilfe:
DaysInAMonth (Funktion)
Die Funktion gibt die Anzahl der Tage im angegebenen Monat eines angegebenen Jahres zurück.
Unit
DateUtils
Kategorie
Datum/Zeit
Delphi-Syntax:
function DaysInAMonth(const AYear, AMonth: Word): Word;
Beschreibung
Mit DaysInAMonth können Sie die Anzahl der Tage eines Monats im angegebenen Jahr ermitteln.
AYear gibt ein Jahr zwischen 1 und 9999 (inklusive) an.
AMonth gibt einen Monat zwischen 1 und 12 (inklusive) an.
Und da diese Funktion neben dem Monat auch das Jahr erwartet, ist das Ergebnis genauer, als bei der Case-Alternative.
Warum? Weil Schaltjahre berücksichtigt werden, die Dein Lehrer anscheinend vergessen hat.
Also benötigst Du zwei Edits - eins für den Monat, und eins für das Jahr.
Den Rest bastelst Du jetzt bitte alleine.