lisp弧度转度分秒_度分秒转化成弧度的函数代码

度分秒转化成弧度的函数代码

2018-3-17来自ip:11.139.135.227的网友咨询

浏览量:228

问题补充：

度分秒转化成弧度的函数代码

Public Function RAD(ByVal DEGREE As String) As Double

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

上面这段代码里面,DEGREE = DEGFORMAT(DEGREE)这一句是什么意思?怎么理解?