MS Access：四捨五入
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
わざわざ、備忘録にする必要もないけど、１から考えると結構めんどくさい。
そこで、四捨五入の関数。
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
わざわざ、備忘録にする必要もないけど、１から考えると結構めんどくさい。
スポンサーサイト