Balance Check Amount Calculation

[:o]Look this code in codeunit 12 InsertGLEntry function : BalanceCheckAmount := BalanceCheckAmount + GLEntry.Amount * ((GLEntry.“Posting Date” - 01010000D) MOD 99 + 1); BalanceCheckAmount2 := BalanceCheckAmount2 + GLEntry.Amount * ((GLEntry.“Posting Date” - 01010000D) MOD 98 + 1); Is this code a little bit strange ? I cannot understand the use of calculating dates difference and then find the modulus of 99 or 98.