Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Luckie**

Aus der SysUtils.pas vom BSD2006:

Delphi-Quellcode:

			function IsLeapYear(Year: Word): Boolean;

begin

  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));

end;

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#24 Re: Anzahl Tage im Monat 14. Mär 2009, 12:13 Aus der SysUtils.pas vom BSD2006: markieren Delphi-Quellcode: function IsLeapYear(Year: Word): Boolean; begin Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end; Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat