Public Function KEREK2(mit, mire)
KEREK2 = Round((CDate(mit) / CDate(mire)), 0) * CDate(mire)
End Function