Foxtable(狐表)用户栏目专家坐堂 → [分享]真正的四舍五入函数


  共有48642人关注过本帖树形打印复制链接

主题:[分享]真正的四舍五入函数

帅哥哟,离线,有人找我吗?
myjht
  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:254 积分:1634 威望:0 精华:0 注册:2017/4/14 15:58:00
  发帖心情 Post By:2020/11/15 8:37:00 [只看该作者]

学习学习

 回到顶部
帅哥哟,离线,有人找我吗?
cbt
  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:566 积分:4184 威望:0 精华:0 注册:2015/5/13 8:32:00
  发帖心情 Post By:2020/11/15 8:50:00 [只看该作者]

Dim bb As Double = args(0) '3.994
Dim wz As Integer = args(1) '2
Dim bstr As String = CStr(bb)
If bstr.IndexOf(".")=-1 Then Return bb

Dim nbbs As String() = bstr.Split(".") '分割小数点
If nbbs(1).length<=wz Then Return bb

Dim nxs As String = nbbs(1).SubString(0,wz) '截取小数
Dim newb As Double = nbbs(0) & "." & nxs '整数拼接位数
Dim xsh As Double = nbbs(1).SubString(wz,1) ' 截取后面数值

Dim szzj As String="0." '填空小数
For i As Integer = 1 To wz-1
    szzj = szzj & "0"
Next
szzj = szzj & "1"

If xsh>=5 Then newb = newb+szzj '判断这个数值是否大于等于5
Return newb

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2186 积分:17954 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2020/11/15 9:36:00 [只看该作者]

学习一下


 回到顶部
帅哥哟,离线,有人找我吗?
happyuvv
  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:250 积分:2292 威望:0 精华:0 注册:2017/5/16 11:40:00
  发帖心情 Post By:2021/2/11 19:54:00 [只看该作者]

谢谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
huaziqiao1976
  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1175 威望:0 精华:0 注册:2020/9/28 9:41:00
  发帖心情 Post By:2021/5/16 15:16:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
xongyijd
  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:243 积分:3613 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2021/5/16 16:02:00 [只看该作者]

看看

 回到顶部
帅哥哟,离线,有人找我吗?
bigeng
  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:834 积分:5698 威望:0 精华:0 注册:2014/5/20 17:56:00
  发帖心情 Post By:2021/5/16 16:51:00 [只看该作者]

看一看

 回到顶部
帅哥哟,离线,有人找我吗?
taiguhsx2009
  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:289 积分:4382 威望:0 精华:0 注册:2012/6/24 9:08:00
  发帖心情 Post By:2021/5/17 8:44:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
fvcfox
  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:501 积分:4638 威望:0 精华:0 注册:2020/5/7 13:05:00
  发帖心情 Post By:2021/5/17 8:50:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
薛翁
  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:80 积分:836 威望:0 精华:0 注册:2015/8/29 18:22:00
  发帖心情 Post By:2021/5/17 9:48:00 [只看该作者]

Foxtable的round2函数就是真正的四舍五入,本人程序中多次使用未出现异常。

 回到顶部
总数 101 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..11