度分秒转化成弧度的函数代码Public Function RAD(ByVal DEGREE As String) As DoubleDim G As StringDim G1 As DoubleDim d As BooleanDim DEG11 As DoubleDim DEG12 As DoubleDim DEG13 As DoubleDEGREE = DEGFORMAT(DEGREE)G = Left(Trim(Left(DEGREE, 3)), 1)If G = - Then G1 = -1 ElseIf G = + Then G1 = 1 Else G1 = 1End IfDEG11 = Abs(Val(Left(DEGREE, 4)))DEG12 = Val(Mid(DEGRE, 6, 2))DEG12 = Val(Mid(DEGRE, 6, 2)) / 60DEG13 = Val(Right(DEGREE, Len(DEGREE) - 8)) / 3600RAD = G1 * (DEG11 + DEG12 + DEG13) * PI() / 180End Function上面这段代码里面,DEGREE = DEGFORMAT(DEGREE)这一句是什么意思?怎么理解?
网友回答
【答案】 DEGREE = DEGFORMAT(DEGREE)
这是一个赋值语句,就是把DEGREE作为函数 DEGFORMAT的参数,调用DEGFORMAT,最后把得到的值赋给DEGREE