VBA 求余问题

Excel_Hsiong

使用VBA  i =1.3 MOD 360 计算后i=1
我想得到：1.3 ，请问如何使用VBA代码实现，感谢！

蓝桥玄霜

余数的代码：
用法：[b1]=ys(1.3)

时间的音符

Public Sub main()
    a = 1.3: b = 360
    [a65536] = "=mod(" & a & "," & b & ")"
    i = [a65536].Value
    [a65536].Clear
    MsgBox i
End Sub

microyip

1. i =1.3
   
2. j=i- Int((i-1)/360)

复制代码

时间的音符

时间的音符 发表于 2020-2-7 12:29
Public Sub main()
    a = 1.3: b = 360
    [a65536] = "=mod(" & a & "," & b & ")"

可以封装成一个函数

Excel_Hsiong

时间的音符 发表于 2020-2-7 12:29
Public Sub main()
    a = 1.3: b = 360
    [a65536] = "=mod(" & a & "," & b & ")"

感谢您的方法，封装成函数！

Excel_Hsiong

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

感谢您的自定义函数的解法，太强了！谢谢您！

grf1973

Function ys(x, n)  'x=1.3,n=360
    ys = x - Int(x) + x Mod n
End Function

Excel_Hsiong

grf1973 发表于 2020-2-7 16:04
Function ys(x, n)  'x=1.3,n=360
    ys = x - Int(x) + x Mod n
End Function

您的算法更强，感谢您的帮助！
另外麻烦问一下:359.5\360为什么商会是1？

Excel_Hsiong

grf1973 发表于 2020-2-7 16:04
Function ys(x, n)  'x=1.3,n=360
    ys = x - Int(x) + x Mod n
End Function

您的自定义函数可能有些Bug，例如：ys（1.656，360）=2.656？请帮忙看看，感谢！