保留兩位小數的一般方法是四舍五入法。
10余年的吉安網站建設經驗,針對設計、前端、開發、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。成都營銷網站建設的優勢是能夠根據用戶設備顯示端的尺寸不同,自動調整吉安建站的顯示方式,使網站能夠適用不同顯示終端,在瀏覽器中調整網站的寬度,無論在任何一種瀏覽器上瀏覽網站,都能展現優雅布局與設計,從而大程度地提升瀏覽體驗。創新互聯從事“吉安網站設計”,“吉安網站推廣”以來,每個客戶項目都認真落實執行。
保留兩位小數,看千分位。是4或比4小舍去;是5或比5大舍去以后向前一位進1。
如:3.425保留兩位小數就是3.43
3.421保留兩位小數就是3.42
又如: 3.4263保留兩位小數就是3.43
3.4233保留兩位小數就是3.42
再如:3.4保留兩位小數就是3.40
Dim TempStr As String
TempStr = "2.34567"
MsgBox IIf(Format(TempStr, "#.##") TempStr, Format(TempStr, "#.##") - 0.01, Format(TempStr, "#.##"))
這個不四舍五入,如果需要四舍五入~直接format就行了~
方法1:
先取10倍后小數,再取整,再與10求余數,得到小數點后一位
代碼:
Dim a As Double
a = 3.1415926
MsgBox "小數點后一位為:" Str(Int(a * 10) Mod 10), 0, "提示"
方法2:
先將小數用Format轉成只有一位小數字符,然后用Right取最后一位字符,得到小數點后一位
代碼:
Dim a As Double
a = 3.1415926
MsgBox "小數點后一位為:" Right(Format(a, ".#"), 1), 0, "提示"
方法3:
先將小數放大1倍,再取整數,然后用Right取最后一位字符,得到小數點后一位
代碼:
Dim a As Double
a = 3.1415926
MsgBox "小數點后一位為:" Right(Str(Int(a * 10)), 1), 0, "提示"
方法4:
將數先放大10倍,取整,減去取整后放大10倍的數,得到得到小數點后一位的值
代碼:
Dim a As Double
a = 3.1415926
MsgBox "小數點后一位為:" Str(Int(a * 10) - Int(a) * 10), 0, "提示"
分享題目:vb.net截取小數點 小數點截取函數
URL網址:http://vcdvsql.cn/article4/hpggoe.html
成都網站建設公司_創新互聯,為您提供面包屑導航、營銷型網站建設、電子商務、移動網站建設、標簽優化、靜態網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯