Eingabe Ordnungszahl d. Monats Ausgabe: Anzahl d. Monatstage

[der_dumme]

hallo leute...

ich habe die folgende aufgabe zu lösen:
ich soll ein Programm erstellen, in welchem der Benutzer die Ordnungszahl eines Monats in ein Editfeld eingibt, ich soll das Programm so programmieren, dass die Anzahl der Tage des jeweiligen Monats ausgegeben wird.

Ich habe mir überlegt, das Ganze mit Hilfe einer case ... of variante zu machen, jedoch weis ich noch nicht genau, wie ich das in hinblick auf die aufgabe vereinbare...

ich hoffe ihr könnt mir helfen, danke im vorraus

[mkinzler]

Einfach

Delphi-Quellcode:

Case Monat of
  1,3,5,7,8,10,12: ...
  2: ...
  3,6,9,11: ..
end;

[s-off]

Hallo,


schau Dir mal die DaysInAMonth-Funktion an.

Edit: Du solltest Deinem Lehrer sagen, dass es auch Schaltjahre gibt.

Edit: Ich glaube, mkinzler hat im März Geburtstag

[der_dumme]

ok... das mit der case .. of variante verstehe ich...
ihr sprecht alle von einer daysinamonth funktion... könnt ihr das mal in einem hyperlink darstellen? ich weiß nämlich nicht, wo ich diese suchen soll, die Suchfinktion half mir leider auch nicht weiter...

[mkinzler]

Diese Funktions befindet sich in der Unit DateUtils

[s-off]

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.