Tagesanzahl eines beliebigen Monats rausfinden!

Kostja · Hält's aus hier Beiträge: 11

Ich habe folgendes Problem:
Ich möchte die Anzahl der Tage eines von mir ausgesuchten Jahres und Monats ermitteln. Gibt es in Delphi vielleicht eine Funktion die das für mich übernimmt, so dass ich nur den Monat und das Jahr eingeben muss und als Ergebniss die Anzahl der Tage bekomme?

MfG Kostja

Matthias · Beiträge: 121

Hy,

ob es so etwas gibt weiss ich nicht, aber programmier es doch selbst.
Hier ein Ansatz. Ich habe ihn allerdings nicht getestet.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function AnzahlTage(Jahr, Monat: integer);
begin
  case Monat of
     1,3,5,7,8,10,12 : Result := 31;
     4,6,9,11           : Result := 30;
     2                  : if (Jahr mod 4 = 0) and not (Jahr mod 100 = 0)
                             then Result := 29
                             else Result := 28;
  end;
end;

So weit ich weiss sind Schaltjahre durch 4 und nicht durch 100 teilbar.

ciao
Matthias

Ehemaliges Mitglied Erhaltene Danke: 1

Delphi enthält eine Schaltjahresfunktion, IsLeapYear.

SysUtils.pas hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and
    ((Year mod 100 <> 0) or
     (Year mod 400 = 0)
    );
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme