Access培训
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

数据转换的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


Access软件网官方交流QQ群 (群号:39785885)       access源码网店

最新评论 查看更多评论(2)

2020/10/28 10:07:17云峰
更正一下:如果指定位数的数字为偶数,其后数字只有5,那么Round函数不会进一。

2020/10/28 9:52:14云峰
多谢杨老师整理分享。关于定位四舍五入,如果指定位数的数字为偶数,其后两位数字为5和0,那么Round函数不会进一,比如0.025保留2位小数的结果为0.2。我现在使用Cdbl(format(数值,位数))或者Round(数值+0.00001, 位数)来保证精确度。

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助