利用VBS脚本对象实现四舍五入_标准的四舍五入

1907635162

小功能, 给有需要的人, 免得新人迷路.

1. 功能 四舍五入(小数, 保留几位小数)   //示例: 四舍五入(4.4589, 2)
   
2.    
   
3. 变量 vbs = com("ScriptControl")
   
4. vbs.Language = "VBScript"
   
5. 变量 s= "Cstr(Round(" & 小数 & ", " & 保留几位小数 & "))"
   
6. 变量 返回值 = vbs.Eval(s)
   
7. 返回 (返回值)
   
8. 
   
9. 结束

复制代码

ljs84891758

这个VBS脚本是需要作为插件文件插入到自己的程序里吗？
还是说win自带的，TC里加上这代码调用就行？

1907635162

ljs84891758 发表于 2021-7-25 00:03
这个VBS脚本是需要作为插件文件插入到自己的程序里吗？
还是说win自带的，TC里加上这代码调用就行？ ...

自带的对象, 没有文件的, 直接用.

ljs84891758

1907635162 发表于 2021-7-25 13:56
自带的对象, 没有文件的, 直接用.

好的，谢谢

ljs84891758

发现对于负数或0.xxx的计算结果会丢失小数点前面的字符，如何解决呢？