戯れ言葉

MS Access:四捨五入

カテゴリ:MSAccess 備忘録
タグ:

AccessVBA には四捨五入の関数がありません。
そこで、四捨五入の関数。

Function 四捨五入(数値#) As Long
    Dim tmp_num As Long
   
    tmp_num = Int(数値#)
    数値# = 数値# - tmp_num
   
    If 数値# >= 0.5 Then
        四捨五入 = tmp_num + 1
    Else
        四捨五入 = tmp_num
    End If
   
End Function


わざわざ、備忘録にする必要もないけど、1から考えると結構めんどくさい。
スポンサーサイト



Comments 0

There are no comments yet.

Leave a reply
コメントをどうぞ

 お名前とか
 ブログやホームページのURLをどうぞ

パスワードを入力すると投稿後、訂正・削除が出来ます