access數(shù)據(jù)處理函數(shù)（四捨五入到整數(shù)，指定隨機整數(shù)）

在應(yīng)用程序中，因爲(wèi)數(shù)據(jù)的複雜性，經(jīng)常需要對數(shù)據(jù)進(jìn)行處理

access中提供瞭很多數(shù)據(jù)處理的函數(shù)，比如取整，取正數(shù)等。下麵分享幾箇常用的的數(shù)據(jù)處理函數(shù)

' 四捨五入到整數(shù)
Sub 四捨五入()
    Dim x As Double
    x = InputBox("請輸入數(shù)值：")
    MsgBox  CInt(x) 
End Sub


' 將數(shù)值四捨五入到指定位數(shù)
Sub 定位四捨五入()
    Dim x As Double
    Dim n As Integer
    x = InputBox("請輸入數(shù)值：")
    n = InputBox("請輸入進(jìn)行四捨五入的位數(shù)：")
    MsgBox  "保留" & n & "位小數(shù)的結(jié)果爲(wèi)：" & Round(x, n) 
End Sub

 
' 對輸入數(shù)值取整，負(fù)數(shù)取小
Sub 取整1()
    Dim x As Double
    x = InputBox("請輸入數(shù)值：")
    MsgBox   Int(x) 
End Sub

' 對輸入的數(shù)值取整，負(fù)數(shù)取大
Sub 取整2()
    Dim x As Double
    x = InputBox("請輸入數(shù)值：")
    MsgBox   Fix(x) 
End Sub

' 穫?cè)〔怀^指定數(shù)值的非負(fù)隨機數(shù)
Sub 隨機數(shù)()
    Dim x As Double
    x = InputBox("請輸入數(shù)值：")
    MsgBox   Rnd(x) * x 
End Sub

' 穫?cè)〔怀^指定數(shù)值的數(shù)隨機整數(shù)
Sub 隨機整數(shù)()
    Dim x As Double
    x = InputBox("請輸入數(shù)值：")
    MsgBox  Int(Rnd(x) * x)
End Sub