首页 > 手机数码

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

四舍五入到整数、将输入的数值转换为百分数、将数值四舍五入到指定位数、将输入的数值转化为货币型、对输入数值取整,负数取小、对输入的数值取整,负数取大、获取不超过指定数值的非负随机数、获取不超过指定数值的数随机整数 的方法。

'四舍五入到整数

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

阅读原文:http://www.accessoft.com/article-show.asp?id=18625

本文来自投稿,不代表本网站立场,发布者:实习编辑,如若转载,请注明出处:https://www.93235.net/shuma/156210.html

关注微信