数据转换的8个自定义函数

时　间:2020-10-24 08:52:05
作　者:杨雪   ID：42182  城市：南京
摘　要:分享：四舍五入到整数、将输入的数值转换为百分数、将数值四舍五入到指定位数、将输入的数值转化为货币型、对输入数值取整，负数取小、对输入的数值取整，负数取大、获取不超过指定数值的非负随机数、获取不超过指定数值的数随机整数  的方法。
正　文:

'四舍五入到整数
Sub 四舍五入()
    Dim x As Double
    x = InputBox("请输入欲四舍五入的数值：")
    MsgBox x & "四舍五入结果为：" & CInt(x), , "CInt()函数"
End Sub

'将输入的数值转换为百分数
Sub 百分数()
    Dim x As Double
    x = InputBox("请输入欲转化为百分数的数值：")
    MsgBox x & "转化为百分数为：" & FormatPercent(x), , "FormatPercent()函数"
End Sub

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

'将输入的数值转化为货币型
Sub 货币()
    Dim x As Double
    x = InputBox("请输入欲转化为货币的数值：")
    MsgBox x & "转化的货币值为：" & FormatCurrency(x) _
    , , "FormatCurrency()函数"
End Sub

'对输入数值取整，负数取小
Sub 取整1()
    Dim x As Double
    x = InputBox("请输入欲取整的数值：")
    MsgBox x & "取整结果为：" & Int(x), , "Int()函数"
End Sub

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

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

'获取不超过指定数值的数随机整数
Sub 随机整数()
    Dim x As Double
    x = InputBox("请输入随机整数的上界：")
    MsgBox "取得" & x & "以内的随机整数：" & Int(Rnd(x) * x) _
    , , "Rnd()函数&Int()函数"
End Sub