tan、sin、cos、Atn…

　　以上數學函數皆以Radian作單位，如要計算角度的話，就要轉換！而且計算出來的結果都以Double作單位！

Dim A as Double '以免出現溢位或除以零的錯誤
' 現在假設A是以Degree作單位
A = tan45 ' 一般人都知tan45^o等於1

　　但結果A = 1.66……而不是一，因為要計算的單位不是陘度作單位，如何轉換？站長寫了以下兩個函數供大家使用：

Private Function RadianToDegree(Radian As Double) As Double
    RadianToDegree = Radian * 180 / 3.14159265358979
End Function

Private Function DegreeToRadian(Degree As Double) As Double
    DegreeToRadian = Degree * 3.14159265358979/ 180
End Function

我們可以利用它把角度轉成弳度：

Dim A as Double
A = tan(DegreeToRadian(45))

結果 A = 0.99999999999999999998，非常接近1

Atn則是把Tan計算的結果轉和，即是tan^-1

其他的函數運用及要注意的地方都是一樣。