[VBA函数]：获取数值精度的新方法

efan2000

在VBA中，要获取某一数值的精度（保留位数），一般人都是用Round函数，但是借助于Utility对象的RealToString函数，可以实现更精确的转换。RealToString函数是用于工程单位之间的换算。

2. 
   
3.   [FONT=courier new]
   
4. '获取某一精度的值
   
5. Public Function VToP(ByVal Value As Double, ByVal Precision As Integer) As Double
   
6.     On Error GoTo ErrTrap
   
7.     VToP = ThisDrawing.Utility.RealToString(Value, acDecimal, Precision)
   
8.     Exit Function
   
9.    
   
10. ErrTrap:
    
11.     Debug.Print "VToP: " & Err.Number & ", " & Err.Description
    
12.     On Error GoTo 0
    
13. End Function
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> '获取某一精度的值<br /> Public Function VToP(ByVal Value As Double, ByVal Precision As Integer) As Double<br />     On Error GoTo ErrTrap<br />     VToP = ThisDrawing.Utility.RealToString(Value, acDecimal, Precision)<br />     Exit Function<br />     <br /> ErrTrap:<br />     Debug.Print "VToP: " & Err.Number & ", " & Err.Description<br />     On Error GoTo 0<br /> End Function<br />   [/FONT]<br />

今天提供了几个我编程当中用到的函数，希望对用VBA进行编程的人有所助益。