数据转换的8个自定义函数-杨雪
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2020/10/24 8:52:05 评论(2) 浏览(3954)  评论 | 加入收藏 | 复制
   
摘 要:分享:四舍五入到整数、将输入的数值转换为百分数、将数值四舍五入到指定位数、将输入的数值转化为货币型、对输入数值取整,负数取小、对输入的数值取整,负数取大、获取不超过指定数值的非负随机数、获取不超过指定数值的数随机整数  的方法。
正 文:
'四舍五入到整数
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

Access软件网交流QQ群(群号:198465573)
 
 相关文章
普通文本转换成化学分子式  【lzk  2015/12/24】
【Access示例】小数转换成以分数的形式显示  【缪炜  2016/4/8】
将数值转换为百分数  【杨雪  2016/9/6】
将数值转换为货币型  【杨雪  2016/9/17】
【Access扫盲知识】被Format转换后的数据类型问题  【麥田  2017/11/13】
【Access示例】--文本转换数值方法  【宏鹏  2019/2/27】
常见问答
技术分类
相关资源
文章搜索
关于作者

杨雪

文章分类

文章存档

友情链接