测试代码
Dim weight As Double = 1.23
Dim money As Double = iif(weight <= 0.8, 1, 1 + Math.Ceiling(Math.Round(weight-0.8,6) / 0.4) * 0.2)
msgbox(money)
加好友 
发短信
Post By：2014/3/31 21:57:00 [显示全部帖子]
