Forum: Object-Pascal / Delphi-Language
Delphi
by omata,
5. Jun 2009
@Larsi: ist nicht böse gemeint :hi:
Fingerknöchel-Regel...
function TageImMonat(Monat, Jahr:integer):byte;
begin
case Monat of
1: Result:=31;
2: if Schaltjahr(Jahr) then
Result:=29
Forum: Object-Pascal / Delphi-Language
Delphi
by omata,
5. Jun 2009
Na gut, für die Klugscheißer...
Forum: Object-Pascal / Delphi-Language
Delphi
by omata,
5. Jun 2009
Alternativ kannst du auch mal deine Fingerknöchel befragen (einfache aber effektive Regel), denn die Anzahl an Tagen in einem Monat ist immer gleich (Ausnahme: Februar). Deine Frage muss also eigentlich lauten, wie ermittle ich ein Schaltjahr, um für den Monat Februar die korrekte Länge zu ermitteln.
function isSchaltjahr(jahr:integer):boolean;
begin
Result:=(jahr mod 4 = 0) and (jahr...