プログラマーのわけわかめ日記

今回、仕事で金額計算を行う際に切り上げ処理を行うことがありました。

切り捨てはFix関数を使えば簡単に行うことができますが、

VBScriptでは切り上げを行ってくれる関数がありません(T . T)

そこで、
単純に0.5を足してRound()関数を使えばできるんじゃないのかと思ったのですがk

整数値の場合１多い数値になってしまいます・・・

なので、整数値かどうか判定させて場合分けしちゃいました

If IsDecimal(値) Then
value = Round(0.5 + value)
Else
何もしない
End If

' -------------------------------------------------------------------------------
' 指定した値が小数を含むかどうかを返します。
'
' @Param dValue 検査対象となる値。
' @Return 小数を含む場合は True。それ以外は False。
' -------------------------------------------------------------------------------
Public Function IsDecimal(ByVal dValue As Double) As Boolean
If dValue - Int(dValue) <> 0 Then
IsDecimal = True
End If
End Function