vb舍去后边数的问题

来源：百度知道 编辑：UC知道 时间：2024/09/22 15:49:28
例如一个数5.12345678
只要这个数的小数点后4位，就是5.1234 而且不能四舍五入
要怎么办？

H = "5.12345678"
D = Int(H) 'D=分解出来的整数
F = Mid(H, InStr(1, H, "."), Len(H)) '小数点和小数点后面的
M = Mid(F, InStr(F, ".") + 1, 20) '读取小数点后面的小数
M = Left(M, 4)
F = Left(F, 1) 'F第一位,也就是小数点
MsgBox D & F & M
分解步骤

Private Sub Command1_Click()
i = Fix(Text1.Text) + Fix(10000 * (Text1.Text - Fix(Text1.Text))) / 10000
Text1.Text = i
End Sub

我来告诉你一个办法

u=5.12345678

text1.text=format(u,"0.####")

这就好啦，呵呵

最佳答案产生

Private Sub Command1_Click()
a = 5.12345678
Print Fix(a * 10000) / 10000
End Sub

先把这个数赋值给字符串变量转变为字符串，查找小数点，截取 小数点位置+4 个字符

Private Sub Command1_Click()
Dim nStr As String
nStr = 5.12345678
nStr = Left(nStr, InStr(nStr, ".") + 4)
Print nStr
End Sub

print format(5.12345678,"0.0000")
就可以了。