监理检测网论坛

注册

 

返回列表
发新话题 回复该主题
查看: 2552|回复: 2

一个4舍6入5单双的自定义函数，请大家分享！ [复制链接]

a_1_2_34
头像

  • 工程师
  • 95
  • 3432
  • 2009-04-05
1#
t T
发表于 2009-06-01 20:59 |只看楼主
数据处理的自定义函数，供大家分享×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
Public Function RoundCint(shuzhi, amanalong)×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
   '当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数值。例如，0.5 转换为 0、1.5 转换为 2。Cint×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
   '和 CLng 函数不同于 Fix 和 Int 函数，Fix 和 Int 函数会将小数部分截断而不是四舍五入。×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
    Dim amanglong As Long×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
    Dim weishu As Double×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
     weishu = amanalong×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
     baoliuweishu = shuzhi * (10 ^ weishu)×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
     RoundCint = CInt(baoliuweishu) / 10 ^ weishu×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
End Function×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
分享 转发
余三
TOP
tttlabc
头像

  • 爱心志愿者
  • 216
  • 794
  • 2007-02-05
2#
t T
发表于 2009-06-05 18:02 |只看该用户

可以说的具体点啊，谢谢`~~×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
TOP
我在线上
头像

  • 工程师
  • 100
  • 248
  • 2010-08-09
3#
t T
发表于 2010-12-11 13:28 |只看该用户

看不太明白×ÚÀQpð²hbbs.3c3t.comÛÌGüOxö~Ù
TOP
上一主题| 下一主题
返回列表
发主话题 回复该主题
高级编辑器高级编辑器