excel - 在Excel中使用VBA截断 double

Question

我需要截断 double 值的小数位数以在文本框中显示。如何使用 VBA 实现这一目标？

Answer 1

如果您想要对值进行四舍五入，那么您可以使用 Round 函数(但请注意，VBA 的 Round 函数使用 Banker 舍入，也称为舍入到偶数，它将四舍五入a 5 向上或向下；要使用传统舍入进行舍入，请使用格式)。

如果您想截断值而不进行四舍五入，则无需像接受的答案中那样使用字符串 - 只需使用数学:

Dim lDecimalPlaces As Long: lDecimalPlaces = 2
Dim dblValue As Double: dblValue = 2.345

Dim lScale = 10 ^ lDecimalPlaces
Dim dblTruncated As Double: dblTruncated = Fix(dblValue * lScale) / lScale

这会产生“2.34”。