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)
廣德網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,廣德網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為廣德近千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢,請(qǐng)找那個(gè)售后服務(wù)好的廣德做網(wǎng)站的公司定做!
主要要看你的邏輯,就是你這個(gè)表達(dá)式的組成。
就是你這一串算法是用字符串串起來的,在最后一次后,不再添加“+”就可以了。
如果,不明白,可以看你的源碼
'自定義一個(gè)函數(shù):功能是給小數(shù)直接進(jìn)一位
'num 要操作的小數(shù)
'n 保留幾位小數(shù),
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
-------------------------
調(diào)用一下:
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15