項目

　切上げ、切捨て、四捨五入
方法

Option Compare Database
Option Explicit

'----------------------------------------------------
'切り上げ
'----------------------------------------------------
'value  :値
'digits ：精度
'----------------------------------------------------
Function RoundUp(value As Double, digits As Integer) As Double

    RoundUp = Sgn(value) * Int(Abs(value * 10 ^ digits) + 0.9) / (10 ^ digits)
    
End Function

'----------------------------------------------------
'切捨て
'----------------------------------------------------
'value  :値
'digits ：精度
'----------------------------------------------------
Function RoundDown(value As Double, digits As Integer) As Double
    
    RoundDown = Sgn(value) * Int(Abs(value) * 10 ^ digits) / (10 ^ digits)
    
End Function

'----------------------------------------------------
'四捨五入
'----------------------------------------------------
'value  :値
'digits ：精度
'----------------------------------------------------
Function RoundOff(value As Double, digits As Integer) As Double
    
    RoundOff = Sgn(value) * Int(Abs(value * 10 ^ digits) + 0.5) / (10 ^ digits)
    
End Function