使用十進制數據類型的VBA整數除法

我想將另一個Decimaly的Decimal類型的變量x除以得到整數結果，但我得到一個溢出錯誤。使用十進制數據類型的VBA整數除法

Dim a As Variant 
Dim b As Variant 

a = CDec(129801938493) 
b = CDec(9385029380) 

a = a \ b

顯然，\運營商要挾其參數的數據類型Long。有沒有辦法使用Decimal做整數除法（或模除法）？

來源

2012-02-20 Joe

請注意，您的示例演示了[integer division]（http://en.wikipedia.org/wiki/Integer_division#Division_of_integers），而不是[modulo]（http://en.wikipedia.org/wiki/Modulo_operation）。我相應地修復了你的頭銜。 – 2012-02-21 07:52:12

@ Jean-FrançoisCorbett，謝謝。對於我正在使用的算法，無論是整數除法還是模數除法都是必需的。 – Joe 2012-02-21 16:42:02

a = Int(a/b)

Int函數會截斷，所以應該和「\」一樣工作。

來源

2012-02-20 22:01:32

使用十進制數據類型的VBA整數除法

回答

相關問題