VB開發 VB中如何四捨五入

2021-04-06 12:04:09 字數 1000 閱讀 8145

在 visual basic 要做到四捨五入的功能應該用 format 這個函式,用 cint 或 clng 都只能取到整數部分,而用 format 函式可以取到你所指定的小數字數。

副程式:

public function round(num as variant, n as long) as string

round = format(num, iif(n > 0, "0." & string(n, "0"), "0"))

end function

叄數說明:

round 函式傳回的是乙個字串資料。

範例:

private sub command1_click()

dim a as double

a = 1234.56789

debug.print fix(a)

debug.print int(a)

debug.print cint(a)

debug.print clng(a)

debug.print round(a, 0)

debug.print round(a, 3)

end sub

執行後在 vb 的即時運算視窗出現以下結果:

1234

1234

1235

1235

1235

1234.568

fix 和 int 是屬於無條件捨去,但是他們兩者在處理負數的部分仍有些微差異,請自行叄閱vb help;cint 和 clng 也有四捨五入的功能,但是只能取到整數部分;format 則可以四捨五入到你所指定的小數字數。

有一點值得一提的是,format 的第二個叄數使用 "0" 和 "#" 的差異:

format(123.4,".000") 輸出 123.400

format(123.4,".###") 輸出123.4

也就是說:第二個叄數使用 "0" 的,會自動補上多餘的 0,有時候為了編排好看會希望這麼做;使用 "#" 的則不會自動補上 0。

VB 切捨 切上 四捨五入 小數判斷

1 2 3 4 5 6 7 description 丸 処理 argments d 原 丸 區分 0 切 舍 1 四捨五入 2 四捨五入 m 小數 桁數 1 2 3 4 5 6 7 public function cf cround byval d as currency,as integer,m ...

qt的四捨五入 Qt(C )四捨五入

qt現在是四捨六入五成雙,要想四捨五入得自己想辦法,實現如下 include include double c1 3.435 double c2 3.445 double c3 3.4351 double c4 3.4451 double c5 3.445 qdebug qdebug qdebug ...

mysql 金額 四捨五入 mysql四捨五入

雲資料庫 mysql 雲資料庫 rds for mysql 是穩定可靠 可彈性伸縮的雲資料庫服務。通過雲資料庫能夠讓您幾分鐘內完成資料庫部署。雲端完全託管,讓您專注於應用程式開發,無需為資料庫運維煩惱 低至 0.24 小時起,買1年83折 雲資料庫mysql 雲資料庫 rds for mysql 是...