access数据处理函数（四舍五入到整数，指定随机整数）

在应用程序中，因为数据的复杂性，经常需要对数据进行处理

access中提供了很多数据处理的函数，比如取整，取正数等。下面分享几个常用的的数据处理函数

' 四舍五入到整数
Sub 四舍五入()
    Dim x As Double
    x = InputBox("请输入数值：")
    MsgBox  CInt(x) 
End Sub


' 将数值四舍五入到指定位数
Sub 定位四舍五入()
    Dim x As Double
    Dim n As Integer
    x = InputBox("请输入数值：")
    n = InputBox("请输入进行四舍五入的位数：")
    MsgBox  "保留" & n & "位小数的结果为：" & Round(x, n) 
End Sub

 
' 对输入数值取整，负数取小
Sub 取整1()
    Dim x As Double
    x = InputBox("请输入数值：")
    MsgBox   Int(x) 
End Sub

' 对输入的数值取整，负数取大
Sub 取整2()
    Dim x As Double
    x = InputBox("请输入数值：")
    MsgBox   Fix(x) 
End Sub

' 获取不超过指定数值的非负随机数
Sub 随机数()
    Dim x As Double
    x = InputBox("请输入数值：")
    MsgBox   Rnd(x) * x 
End Sub

' 获取不超过指定数值的数随机整数
Sub 随机整数()
    Dim x As Double
    x = InputBox("请输入数值：")
    MsgBox  Int(Rnd(x) * x)
End Sub