Public Function RAD(ByVal DEGREE As String) As Double
Rem具有测试DEGREE的前面是否带有"+"或"-"号的功能
Dim G As String
Dim G1 As Double
Dim d As Boolean
Dim DEG11 As Double
Dim DEG12 As Double
Dim DEG13 As Double
DEGREE = DEGFORMAT(DEGREE)
G = Left(Trim(Left(DEGREE,3)),1)
If G = "-" Then
G1 = -1
ElseIf G = "+" Then
G1 = 1
Else
G1 = 1
End If
DEG11 = Abs(Val(Left(DEGREE,4)))
DEG12 = Val(Mid(DEGRE,6,2))
DEG12 = Val(Mid(DEGRE,6,2)) / 60
DEG13 = Val(Right(DEGREE,Len(DEGREE) - 8)) / 3600
RAD = G1 * (DEG11 + DEG12 + DEG13) * PI() / 180
End Function
