2

このコードは0を返す必要がありますが、1を返します。すべての数値が長整数であっても、VBAは浮動小数点演算を実行しているように見えます。

Function demo() As Long
    Dim const1 As Long
    Dim const2 As Long
    Dim result As Long
    const1 = 1796&
    const2 = 1798&
    result = const1 / const2
    demo = result
End Function
4

1 に答える 1

4

スラッシュの方向を変える

Function demo() As Long
    Dim const1 As Long
    Dim const2 As Long
    Dim result As Long
    const1 = 1796&
    const2 = 1798&
    result = const1 \ const2
    demo = result
End Function

\整数除算を強制します

于 2012-10-12T22:34:47.400 に答える