代碼分析:
創(chuàng)新互聯(lián)公司公司2013年成立,先為阿圖什等服務(wù)建站,阿圖什等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為阿圖什企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。
Math.Floor:返回小于或等于指定數(shù)字的最大整數(shù)。
Fix:返回?cái)?shù)字的整數(shù)部分。
Math.Floor?和?Fix?函數(shù)都移除?Number?的小數(shù)部分并返回得到的整數(shù)值。
Math.Floor?和?Fix?函數(shù)之間的區(qū)別在于:如果?Number?為負(fù),則?Math.Floor?返回小于或等于?Number?的第一個(gè)負(fù)整數(shù),而?Fix?返回大于或等于?Number?的第一個(gè)負(fù)整數(shù)。例如,Math.Floor?將?-8.4?轉(zhuǎn)換成?-9,而?Fix?將?-8.4?轉(zhuǎn)換成?-8。
你的要求:如果你的要求是直接舍去,那么應(yīng)當(dāng)采用Fix方法,考慮到時(shí)負(fù)數(shù)的情況,那么采用Math.Floor將會(huì)出現(xiàn)非預(yù)期的結(jié)果。
測(cè)試結(jié)果:見(jiàn)附圖。
歡迎交流。
保留兩位小數(shù)的一般方法是四舍五入法。
保留兩位小數(shù),看千分位。是4或比4小舍去;是5或比5大舍去以后向前一位進(jìn)1。
如:3.425保留兩位小數(shù)就是3.43
3.421保留兩位小數(shù)就是3.42
又如: 3.4263保留兩位小數(shù)就是3.43
3.4233保留兩位小數(shù)就是3.42
再如:3.4保留兩位小數(shù)就是3.40
'自定義一個(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