Berechnung der Differenz II

TimeDiff.m2

PROCEDURE LeapYear(year: CARDINAL) : BOOLEAN; BEGIN RETURN (year MOD 4 = 0) & ((year MOD 100 > 0) OR (year MOD 400 = 0)) END LeapYear;

Jedes durch vier teilbare Jahr ist ein Schaltjahr, es sei denn es durch 100 teilbar, jedoch nicht durch 400.

1996 und 2000 sind Schaltjahre, 1800 und 1900 jedoch nicht.

Die Zeit vor der Gregorianischen Kalenderreform wird nicht berücksichtigt.

	Jedes durch vier teilbare Jahr ist ein Schaltjahr, es sei denn es durch 100 teilbar, jedoch nicht durch 400.
	1996 und 2000 sind Schaltjahre, 1800 und 1900 jedoch nicht.
	Die Zeit vor der Gregorianischen Kalenderreform wird nicht berücksichtigt.