Die Schaltjahrermittlung ist in der
VCL schon enthalten.
In der
Unit SysUtils gibt es die Funktion IsLeapYear().
Hier der Sourcecode dazu:
Delphi-Quellcode:
function IsLeapYear(Year: Word): Boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
Bitte lies dir nochmals die 1. Anwort den
Unwissenden durch!
Er hat lang und breit erklärt, wie du deine Fragen stellen sollst, aber mir scheint, das ist noch nicht ganz angekommen.