新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)
广德网站建设公司创新互联公司,广德网站设计制作,有大型网站制作公司丰富经验。已为广德近千家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱,请找那个售后服务好的广德做网站的公司定做!
主要要看你的逻辑,就是你这个表达式的组成。
就是你这一串算法是用字符串串起来的,在最后一次后,不再添加“+”就可以了。
如果,不明白,可以看你的源码
'自定义一个函数:功能是给小数直接进一位
'num 要操作的小数
'n 保留几位小数,
Function getNumber(num As Double, n As Integer) As Double
Dim a As Double
a = Int(num * (10 ^ n)) / (10 ^ n)
If a = num Then
getNumber = a
Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
调用一下:
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15