导航

« 华语动感音乐精选Excel统计单元格内字符出现次数  »

vb自定义四舍五入函数 分享

Vb6.0

vb中的Round函数的作用是四舍六入求偶(数),即Round(3.5)=3; Round(4.5)=4; Round(3.6)=4, 因此这个函数不适合用来求一个数的四舍五入。为了真正实现数字的四舍五入,我们可以自定义一个函数,代码如下:

Public Function MyRound(ByVal Num As Single, ByVal Wei As Long) As Single 'Num是数值,wei是要取的位数
MyRound = Int(Num * 10 ^ Wei + 0.5) / (10 ^ Wei)
End Function
 

用法:比如求3.56四舍五入保留1位小数,则MyRound=(3.56,1)  ,所得结果应是3.6

 

  • 顶一下

落日故乡推荐
-->

原创文章如转载,请注明:转载自落日故乡

本文链接地址:http://www.spersky.com/post/120.html

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

内容搜索


常用链接

最新评论及回复

Powered By Z-Blog

Copyright spersky All Rights Reserved.Theme Moonlight,Calf modified.