VBA 求余问题

Excel_Hsiong

蓝桥玄霜 发表于 2020-2-7 12:21
余数的代码：
用法：=ys(1.3)

您的自定义函数可能有时会溢出，例如：小数位大于5时，请帮忙看看，感谢！

YZC51

Excel_Hsiong 发表于 2020-2-7 17:19
您的自定义函数可能有些Bug，例如：ys（1.656，360）=2.656？请帮忙看看，感谢！

请参考
Function ys(x, n)
    a = Int(x)
    b = x - a
    c = a Mod n
    ys = b + c
End Function

grf1973

Excel_Hsiong 发表于 2020-2-7 17:19
您的自定义函数可能有些Bug，例如：ys（1.656，360）=2.656？请帮忙看看，感谢！

试试这个呢。
Function ys(x, n)  'x=1.3,n=360
    ys = x - Int(x) + Int(x) Mod n
End Function

Excel_Hsiong

grf1973 发表于 2020-2-8 10:25
试试这个呢。
Function ys(x, n)  'x=1.3,n=360
    ys = x - Int(x) + Int(x) Mod n

很好很好，感谢您的帮助！

Excel_Hsiong

YZC51 发表于 2020-2-8 00:21
请参考
Function ys(x, n)
    a = Int(x)

嗯不错不错，感谢您的帮助！

YZC51

不用谢！花花鼓励就行！

zopey

Excel_Hsiong 发表于 2020-2-7 16:24
您的算法更强，感谢您的帮助！
另外麻烦问一下:359.5\360为什么商会是1？

mod为整数运算，有小数会四舍五入取整，再做mod运算。

359.5/360 =360/360 =1