切り上げを行うユーザー定義関数

切り上げを行うユーザー定義関数

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 （オリジナル作成日 : 1997/01/26）

概　要

　切り上げを行うユーザー定義関数です。

　四捨五入するユーザー定義関数 Round を、Excel の RoundUp 関数の仕様に合わせて改造したものです。

構　文

　RoundUp(Number, Place)

解　説

RoundUp 関数の戻り値は通貨型 (Currency)です。

RoundUp 関数では次の引数を使用します。

引　数	内　　　　　容
Number	切り上げする値を指定します。
Place	切り上げの結果の桁を指定します。正の値の場合小数点以下を示し、負の場合小数点以上を示します。

ユーザー定義関数

Public Function RoundUp(ByVal X As Currency, S As Integer) As Currency
Dim T As Currency
Dim U As Currency

T = 10 ^ Abs(S)
If S >= 0 Then
    U = Abs(X) * T
    If Int(U) = U Then
        RoundUp = X
    Else
        RoundUp = Sgn(X) * Int(U + 1) / T
    End If
Else
    U = Abs(X) / T
    If Abs(X) > Int(U) * T Then
        RoundUp = Sgn(X) * Int(U + 1) * T
    Else
        RoundUp = Sgn(X) * Int(U) * T
    End If
End If
End Function

使用例

x = RoundUp(2.005, 2)  ' 2.01 が返る

x = RoundUp(2.004, 2)  ' 2.01 が返る

x = RoundUp(2.000, 2)  ' 2 が返る

x = RoundUp(-2.005, 2) '-2.01 が返る

x = RoundUp(1540, -2)  ' 1600 が返る

x = RoundUp(1550, -2)  ' 1600 が返る

x = RoundUp(1.4, 0)    ' 2 が返る

注　意

この関数に渡される引数のチェックは行っていません。
通貨型のため、小数点以下は４桁までとなります。

改訂履歴

99/02/28 計算途中で小数点下５桁発生時の自動四捨五入対応

目次へ戻る