各位vb大大我想要求值, 可以四捨五入

Question

我想要求值, 而且可以求到小數第三位並且可以四捨五入,我應該怎麼做

Answer 1

以下提供參考...
Private Sub Form_Activate()
Dim dot As Single, num As Single, z As Single, out As Single
num = Val(InputBox("請輸入數值"))
z = Fix(num) '整數部份
dot = num - z '小數部份
dot = Round(dot, 4) '只保留小數點後4位
If Mid(dot, Len(Str(dot)), 1) >= 5 Then dot = Round(dot + 0.0005, 3) Else dot = Round(dot, 3)
out = z + dot
Print out
End Sub

Answer 2

HerVal=4捨5入的質
b=小數到第幾位

Function ttt(HerVal As Variant, b As Integer)


HerVal = HerVal * (10 ^ b) + 0.5
ttt = Fix(HerVal) / (10 ^ b)

End Function

Private Sub Command1_Click()
Debug.Print ttt(10.1235, 3)
'答案會是 10.124
End Sub

Answer 3

N = Val(InputBox("請輸入數值"))Print Val(Format(N,"0.000"))