office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access数据处理函数(四舍五入到整数,指定随机整数)

2020-11-24 08:00:00
tmtony8
原创
359

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

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

分享