[VBA函数]：角度与弧度换算的函数

efan2000

不用我介绍，相信这是每一个人最常用的函数吧。

2. 
   
3.   [FONT=courier new]
   
4. '角度转换为弧度
   
5. Public Function DToR(ByVal Ang As Double) As Double
   
6.     On Error GoTo ErrTrap
   
7.     DToR = ThisDrawing.Utility.AngleToReal(CStr(Ang), acDegrees)
   
8.     Exit Function
   
9.    
   
10. ErrTrap:
    
11.     Debug.Print "DToR: " & Err.Number & ", " & Err.Description
    
12.     On Error GoTo 0
    
13. End Function
    
14. 
    
15. 
    
16. '弧度转换为角度
    
17. Public Function RToD(ByVal Ang As Double) As Double
    
18.     On Error GoTo ErrTrap
    
19.     RToD = ThisDrawing.Utility.AngleToString(Ang, acDegrees, 0)
    
20.     Exit Function
    
21.    
    
22. ErrTrap:
    
23.     Debug.Print "RToD: " & Err.Number & ", " & Err.Description
    
24.     On Error GoTo 0
    
25. End Function
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> '角度转换为弧度<br /> Public Function DToR(ByVal Ang As Double) As Double<br />     On Error GoTo ErrTrap<br />     DToR = ThisDrawing.Utility.AngleToReal(CStr(Ang), acDegrees)<br />     Exit Function<br />     <br /> ErrTrap:<br />     Debug.Print "DToR: " & Err.Number & ", " & Err.Description<br />     On Error GoTo 0<br /> End Function<br /> <br /> <br /> '弧度转换为角度<br /> Public Function RToD(ByVal Ang As Double) As Double<br />     On Error GoTo ErrTrap<br />     RToD = ThisDrawing.Utility.AngleToString(Ang, acDegrees, 0)<br />     Exit Function<br />     <br /> ErrTrap:<br />     Debug.Print "RToD: " & Err.Number & ", " & Err.Description<br />     On Error GoTo 0<br /> End Function<br />   [/FONT]<br />