Anzahl Tage eines Jahres ermitteln

[HolgerCW]

Hallo zusammen,

gibt es eine Funktion, die mir sagt wieviele Tage ein Jahr hat. Es gibt ja Jahre mit 365 Tagen und welche mit 366 Tagen (Schaltjahre)

Gruss

Holger

[angos]

DateUtils.DaysInAYear

[jfheins]

Es könnte eine Funktion isLeapYear oder so in den DateUtils geben.

Ansonsten:

Delphi-Quellcode:

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

[Douglas Quintaine]

Ansonsten berechne doch einfach, ob ein Jahr ein Schaltjahr ist.

Zitat:

So wird berechnet:
a) Ein jahr welches durch 4 teilbar ist, ist ein schaltjahr
b) ist die jahreszahl durch 4 und 100 teilbar ist es kein schaltjahr
c) ist die zahl durch 4, 100 und 400 teilbar ist es wiederrum ein schaltjahr

[Mavarik]

Wie wäre es mit:

DaysinYear aus DateUtils?

Frank

[himitsu]

wenn ich in der OH nach Schaltjahr suche, dann komm ich direkt zu DateUtils.IsInLeapYear

und die DP-Suche würde auch so Einiges finden

[edit]
wo kommen denn plötzlich die ganzen Antworten her?

und wozu nochein Thread?
Bekannt: Tag des Jahres 2009 -> Wie ermittle ich das Datu

[Satty67]

Zitat von himitsu:

und wozu noch ein Thread?

Strenge Auslegung der Forenregeln

[himitsu]

wobei es doch bei Beidem wohl im Prinzip fast ums Gleiche geht ... Schaltjahre, sonst wäre der andere Thread/Frage leicht zu beantworten, da Tage pro Monat bekannt und der Rest ist Mathe

[Lannes]

Hallo,

oder:

Delphi-Quellcode:

function DaysInYaer(Yaer: Word): Word;
begin
  Result := Trunc(EncodeDate(Yaer,12,13) - EncodeDate(Yaer - 1,12,31));
end;

[HolgerCW]

Vielen dank.