ふぢのＶＢ小技集

四捨五入するには？
（質問）
四捨五入の方法を教えて下さい。
（回答）
はい。
（解説）
四捨五入の方法を調査したところ、以下のような方法がありました。

四捨五入を行う
 
Private Sub Command1_Click()
   Dim v
   
   v = 12.3456
   n = 3
   
   '四捨五入
   Debug.Print "四捨五入="; Int(v * 10 ^ n + 0.5) / 10 ^ n
   
   '切り捨て
   Debug.Print "切り捨て="; Int(v * 10 ^ n) / 10 ^ n
   
   '切り上げ
   Debug.Print "切り上げ="; Int(v * 10 ^ n + 0.99999) / 10 ^ n
   
End Sub


四捨五入を行う関数がありそうですが、他に良い方法があれば追加掲載する予定です。


戻る