Berechnen wann Schaltjahr und Wochenende ist

[Christian18]

Hallo,

wie kann ich berechnen wann ein Schaltjahr ist und wann nicht???. Und dann will ich noch berechnen wann wochenende ist und wann nicht. Hat jemand eine Idee wie ich das machen kann???

Mit freundlichen Grüßen

Christian18

[toms]

Delphi-Quellcode:

Function IsWeekEnd(dData : TDateTime) : boolean;
begin
  Result := (DayOfWeek(dData) = 1) or (DayOfWeek(dData) = 7);
end;

[Christian18]

Hey das ging aber schnell. Danke !!! Und wie kann ich jetzt berechnen wann ein schaltjahr ist und wann nicht???

[Phoenix]

Schaltjahr ist jedes durch 4 (ohne Rest) teilbare Jahr,
ausser es ist durch 100 ohne Rest Teilbar, dann isses keins.
Ausnahme: Ist das Jahr auch noch durch 400 ohne Rest teilbar, ist es doch eines.

Zum Wochentag schau mal hier nach.

[Sharky]

Zitat:

Zitat von Christian18

Hey das ging aber schnell. Danke !!! Und wie kann ich jetzt berechnen wann ein schaltjahr ist und wann nicht???

Ein Schaltjahr ist ein Jahr in dem folgende Bedingungen zutreffen:

Die Jahreszahl ist ohne Rest durch 4 Teilbar -> Schaltjahr
Die Jahreszahl ist ohne Rest durch 100 Teilbar -> Doch kein Schaltjahr
Die Jahreszahl ist ohne Rest durch 400 Teilbar -> Doch ein Schaltjahr

In genau dieser Reihenfolge berechnen.

[Edit]
Oder für die "faulen" IsLeapYear() ;-)

[SubData]

Warum ist denn zum Beispiel das Jahr 2100 kein Schaltjahr?

2100 durch 4 => 525 (Schaltjahr)
2100 durch 100 => 21 (doch kein Schaltjahr?)
2100 durch 400 => 5,25 (Rest, also kein Schaltjahr)

... Meiner bescheidenen Meinung nach is das Jahr 2100 aber n Schaltjahr.. Oder verhau ich mich da gerade?

[alcaeus]

Zitat:

Zitat von SubData

... Meiner bescheidenen Meinung nach is das Jahr 2100 aber n Schaltjahr.. Oder verhau ich mich da gerade?

Deine bescheidene Meinung ist aber falsch :lol:
Ich weiss nicht wer die goettliche Idee mit 4, 100 und 400 hatte, aber das wird schon einen Sinn haben... Bei 2000 kam ja die 400er-Regel in Verwendung

Greetz
alcaeus

[SubData]

Ok habn bissi gewikit ... Nu bin ich schlauer -g-

[toms]

Delphi-Quellcode:

Uses SysUtils;

function IsLeapYear ( const Year : Word ) : Boolean;7

[TeronG]

Zitat:

Zitat von Delphi

Delphi-Quellcode:

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