Die Prüfung ob ein Jahr ein Schaltjahr ist oder nicht kann mit folgender Formel geprüft werden.function IsLeapYear : booleanbegin IsLeapYear = (m_CurrentYear mod 4 = 0) and ((m_CurrentYear mod 100 <> 0) or (m_CurrentYear mod 400 = 0))end function Jedes durch 4 teilbare Jahr hat einen Schalttag. Durch 100 teilbare Jahre sind von dieser Regelung ausgenommen. Durch 400 teilbare Jahre sind von dieser Ausnahmeregelung wiederum ausgeschlossen. Das Jahr 2000 ist also ein Schaltjahr.