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