四舍五入,保留二位小数

[jumay]

我是用VB+SQL编程的:text3.text=text1.text * text2.text,计算结果text3四舍五入保留二位小数,请问代码要如何写

[of123]

text3.text=format(text1.text * text2.text, "standard")

[guyehanxinlei]

来晚了……

[shawls]

注意一个数值，就是.5的处理，非常微妙啊


我一般会这样：

if isnumbic(text1.txt) then
if isnumbic(text2.txt) then
text3.txt=fix(text1.txt*text2.txt*100+5)/100
end if
end if

[Tiger_Zhao]

text3.text=format(text1.text * text2.text, "0.00")

[ZOU_SEAFARER]

Private Sub Command1_Click()
Dim sj As Double
sj = 123.4567
Text1.Text = Round(sj, 2)
End Sub

[zdingyun]

Option Explicit
Dim sj As Double
Private Sub Command1_Click()
sj = Int((Val(Text1.Text) * Val(Text2.Text)) * 100 + 0.50001) / 100
Text3.Text = Format(sj, "#.00")
End Sub

[Tiger_Zhao]

Format 会自动处理四舍五入，自己计算反而有浮点误差。

[zdingyun]

Tiger_Zhao(VB老鸟),请检验如下程式，Text1.Text中显示的是123.45未见Format 会自动处理四舍五入成123.47
Private Sub Command1_Click()
Dim sj As Double
sj = 123.4567
Text1.Text = Format(sj, "#.00")
End Sub

[Tiger_Zhao]

明明是 123.46，你用的什么 VB？哪种四舍五入能将 123.4567 变成 123.47？

[zdingyun]

Tiger_Zhao(VB老鸟)
SORY，眼看化了。

[GuiltyGear]

同意楼上

[Tiger_Zhao]

VB 的 Round 是四舍六入五成双（Bank Round），不符合题意
Round(123.455,2) = Round(123.465,2) = 123.46

[GuiltyGear]

那么就先加上0.005再做Round

myval = 123.4567
Text1.Text = Round(myval+0.005,2)


最原始的方法，直接判断也行……(-__-b)

[Tiger_Zhao]

都快变成 RoundUP 了：Round(123.451+0.005,2) = 123.46