function somefunc takes integer h returns integer
local real r = h/1000.
local integer i = R2I((r-R2I(r))*1000.)
endfunction

function ModuloReal takes real dividend, real divisor returns real
    local real modulus = dividend - I2R(R2I(dividend / divisor)) * divisor
    return modulus
endfunction

local real r = h/1000.
local integer i = R2I((r-R2I(r))*1000.)

local integer modulus = dividend - (dividend / divisor) * divisor

я вообще не понимаю при чем тут тип real...

а оно правильно работает? о_О

function ModuloInteger takes integer dividend, integer divisor returns integer
    local integer modulus = dividend - (dividend / divisor) * divisor

    // If the dividend was negative, the above modulus calculation will
    // be negative, but within (-divisor..0).  We can add (divisor) to
    // shift this result into the desired range of (0..divisor).
    if (modulus < 0) then
        set modulus = modulus + divisor
    endif

    return modulus
endfunction