如何在Excel中可用的VBA中使用TRUNC函数

Question

我需要在Excel中使用Excel中可用的TRUNC函数。我注意到它在Application.WorksheetFunction中不可用。我怎么能得到它？

提前谢谢。

Answer 1

您可以使用分割功能并在.上进行分割

NewStr = split(string, ".")(0)

Answer 2

如果要使用TRUNC而不是Fix，因为需要指定截断后剩余的小数位数，则可以使用Application.Evaluate执行以下操作：

Debug.Print Application.Evaluate("=TRUNC(3.14159265359, 4)")
'will return 3.1415

Answer 3

如果要使用等效的VBA，则类似于：

Function vbaTRUNC(num As Double, Optional digits As Long = 0) As Double
    vbaTRUNC = Fix(num * 10 ^ digits) / 10 ^ digits
End Function

Answer 4

选择。下面的所有函数都返回2的{​​{1}}的值

公共Sub TestTT（）

2.71828182845905

结束子