office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

access數據處理函數(四捨五入到整數,指定隨機整數)

2020-11-24 08:00:00
tmtony8
原創
360

在應用程序中,因爲數據的複雜性,經常需要對數據進行處理

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

分享