Vb6 如何减少十进制长度

我想减少十进制长度

   text1.text = 2137.2198231578

从上面看，我只想显示前两位十进制数

预期产量

text1.text = 2137.21

---

如何做到这一点。

我正要发布使用

格式（）

，这时我注意到p0rter的评论

Format(text1.text, "000.00") 

我想

Int（）

将为您取整

---

自从我使用VB6已经很多年了…

这个函数应该可以做你想做的事情（内联注释应该解释发生了什么）：

Format("2137.2198231578", "####.##")

用法：

Debug.Print FormatDecimals(2137.2198231578, 2) 'outputs 2137.21

---

看起来很简单，但我肯定错过了一些微妙的东西。那么：

Option Explicit

Private Function Fmt2Places(ByVal Value As Double) As String
    Fmt2Places = Format$(Fix(Value * 100#) / 100#, "0.00")
End Function

Private Sub Form_Load()
    Text1.Text = Fmt2Places(2137.2198231578)
End Sub

---

这也适用于小数点字符为逗号的区域设置。

否，我不想对值进行四舍五入查看此处的四舍五入函数这将对值进行四舍五入，而不是截断。输出值为

2137.22

，但JetJack要求

2137.21

这是猜测还是回答？这似乎有点像一个评论。。考虑修改吗？

Option Explicit

Private Function Fmt2Places(ByVal Value As Double) As String
    Fmt2Places = Format$(Fix(Value * 100#) / 100#, "0.00")
End Function

Private Sub Form_Load()
    Text1.Text = Fmt2Places(2137.2198231578)
End Sub