|
Registriert seit: 19. Jul 2004
Ort: München
960 Beiträge
Delphi 2007 Professional
|
Re: Berechnen wann Schaltjahr und Wochenende ist
2. Mai 2005, 11:37
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;
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
|