以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现向上入五入到五角一元的最简便的方法？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87577)
--  作者：lyzhuo
--  发布时间：2016/7/13 23:30:00
--  如何实现向上入五入到五角一元的最简便的方法？
有一种核算方法是这样要求的，a数乘以b数等于几c数，乘出的结果，c数以五角向上入，比如0.01，入为0.5，0.51入为1，怎样用最简练的代码实现这一方法？谢谢！
--  作者：大红袍
--  发布时间：2016/7/14 1:39:00
--  

向上

 

Dim n1 As Double = 0.51
Dim n2 As Double = 0.5
Dim n As Integer = n1 / n2
If n * n2 < n1 Then n += 1
msgbox(n*n2)

 

向下

 

Dim n1 As Double = 0.51
Dim n2 As Double = 0.5
Dim n As Integer = n1 / n2
If n * n2 > n1 Then n -= 1
msgbox(n*n2)