'自定義一個函數(shù):功能是給小數(shù)直接進(jìn)一位

中衛(wèi)網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),中衛(wèi)網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為中衛(wèi)上1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)營銷網(wǎng)站建設(shè)要多少錢,請找那個售后服務(wù)好的中衛(wèi)做網(wǎng)站的公司定做!
'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
保留兩位小數(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
round是vb6.0的吧,我剛才查了一下,在vb.net里變成了枚舉了成員為
成員名稱 說明
RoundToBillionth 數(shù)字四舍五入為 9 個小數(shù)點(diǎn)位。
RoundToHundred 數(shù)字四舍五入為百位數(shù)。
RoundToHundredMillionth 數(shù)字四舍五入為 8 個小數(shù)點(diǎn)位
RoundToHundredth 數(shù)字四舍五入為 2 個小數(shù)點(diǎn)位
RoundToHundredThousand 數(shù)字四舍五入為十萬位數(shù)。
RoundToHundredThousandth 數(shù)字四舍五入為 5 個小數(shù)點(diǎn)位。
RoundToMillion 數(shù)字四舍五入為百萬位數(shù)。
RoundToMillionth 數(shù)字四舍五入為 6 個小數(shù)點(diǎn)位
RoundToTen 數(shù)字四舍五入為十位數(shù)。
RoundToTenBillionth 數(shù)字四舍五入為 10 個小數(shù)點(diǎn)位
RoundToTenMillionth 數(shù)字四舍五入為 7 個小數(shù)點(diǎn)位
RoundToTenth 數(shù)字四舍五入為 1 個小數(shù)點(diǎn)位。
RoundToTenThousand 數(shù)字四舍五入為萬位數(shù)。
RoundToTenThousandth 數(shù)字四舍五入為 4 個小數(shù)點(diǎn)位。
RoundToThousand 數(shù)字四舍五入為千位數(shù)。
RoundToThousandth 數(shù)字四舍五入為 3 個小數(shù)點(diǎn)位。
RoundToUnit 數(shù)字四舍五入為個位數(shù)。要求
分享名稱:vb.net的四舍五入的簡單介紹
轉(zhuǎn)載注明:http://chinadenli.net/article43/dsesshs.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供關(guān)鍵詞優(yōu)化、全網(wǎng)營銷推廣、軟件開發(fā)、虛擬主機(jī)、網(wǎng)站排名、用戶體驗(yàn)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)