减小字体
增大字体- ·上一篇文章：VBScript 和 JavaScript 的比较
- ·下一篇文章：一个vbs+一个bat机器狗免疫
- ·百度中搜索更多的关于“VBS 大小写数字转换（四舍五入，保留小数点后2位”相关内容
- ·谷歌中搜索更多的关于“VBS 大小写数字转换（四舍五入，保留小数点后2位”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
VBS 大小写数字转换（四舍五入，保留小数点后2位
工具---宏---Visual Basic编辑器
右击“Visual Basic编辑器”窗口中的“ThisWorkbook”选择“插入---模块”
Function rmbb(M)
y = Int(Abs(M))
j = Round(Abs(M) - y, 2)
f = (j * 10 - Int(j * 10)) / 10
a = Application.Text(y, "[DBNum2]")
d = "元"
If j < 0.1 Then e = "" Else e = "角"
If f < 0.01 Then g = "整" Else g = "分"
If f < 0.01 Then c = "" Else c = Application.Text(Round(f * 100, 0), "[DBNum2]")
If j = 0 Then b = "" Else b = Application.Text(Int(j * 10), "[DBNum2]")
If M < 0 Then z = "负" Else z = ""
rmbb = z & a & d & b & e & c & g
End Function
