MOD

Für die Umsetzung wird der arithmetische Restoperator % verwendet.

     IF FUNCTION MOD(L-BZUG-D0-JJJJ, K-4)   NOT = 0 OR
        FUNCTION MOD(L-BZUG-D0-JJJJ, K-100)    = 0 AND
        FUNCTION MOD(L-BZUG-D0-JJJJ, K-400) NOT = 0
     THEN
*        ES IST KEIN SCHALTJAHR
         ADD K-1 TO L-NAE-FAEL-D0-JJJJ
     END-IF

if (LBzugD0.Year % K4 != 0 || 
	LBzugD0.Year % K100 == 0 && 
	LBzugD0.Year % K400 != 0) {
	// ES IST KEIN SCHALTJAHR
	LNaeFaelD0 = LNaeFaelD0.AddYears(K1);
}