数据转换的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群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 统计当月之前(不含当月)的记录...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)
- 【Access Dsum示例】...(02.07)
- Access对子窗体的数据进行...(02.05)
- 【Access高效办公】上月累...(01.09)
- 【Access高效办公】上月累...(01.06)

学习心得
最新文章
- 仓库管理实战课程(16)-联合查询...(05.07)
- 合并列数据到一个文本框的示例;输出...(05.06)
- 仓库管理实战课程(15)-月度库存...(04.30)
- Access选择打印机、横纵向、纸...(04.29)
- 仓库管理实战课程(14)-出库功能...(04.26)
- 通过命令按钮让Access列表框指...(04.24)
- 仓库管理实战课程(13)-入库功能...(04.21)
- Access控件美化之--美化按钮...(04.19)
- Access多行文本按指定字符筛选...(04.18)
- Microsoft Access数...(04.18)