VBA角度转换为数值

swallow52o

=deg("90°51′48.6″")
计算得出答案有误。.
请问那一步错了？   
正确答案=90.86333333  

90°= 90
90°51°=90+51/60
90°51′48.6 =90+51/60+48.6/3600 =90.8635    ‘转换角度时为正确的

’转换代码
Function Deg(reg As String) As Double
Dim a As Double
Dim b As Double
Dim c As Double
a = Val(Left(reg, InStr(1, reg, "°") - 1))
b = Val(Mid(reg, InStr(1, reg, "°") + 2, _
InStr(1, reg, "′") - InStr(1, reg, _
"°") - 2)) / 60
c = Val(Mid(reg, InStr(1, reg, "′") + _
2, Len(reg) - InStr(1, reg, "′") - 2)) _
/ 3600
Deg = a + b + c
End Function

grf1973

val只取前面有效的数值，比如val("12akboie452")=12，所以根本不用考虑截取长度的。

grf1973

所有+2改成+1，所有-2改成-1就对了。

1. Function Deg(reg As String) As Double
   
2.     Dim a As Double
   
3.     Dim b As Double
   
4.     Dim c As Double
   
5.     a = Val(Left(reg, InStr(1, reg, "°") - 1))
   
6.     b = Val(Mid(reg, InStr(1, reg, "°") + 1, InStr(1, reg, "′") - InStr(1, reg, "°") - 1)) / 60
   
7.     c = Val(Mid(reg, InStr(1, reg, "′") + 1, Len(reg) - InStr(1, reg, "′") - 1)) / 3600
   
8.     Deg = a + b + c
   
9. End Function
   

复制代码

grf1973

可以简化一点，把mid中截取长度的代码去掉。

1. Function Deg(reg As String) As Double
   
2.     Dim a As Double
   
3.     Dim b As Double
   
4.     Dim c As Double
   
5.     a = Val(reg)
   
6.     b = Val(Mid(reg, InStr(1, reg, "°") + 1)) / 60
   
7.     c = Val(Mid(reg, InStr(1, reg, "′") + 1)) / 3600
   
8.     Deg = a + b + c
   
9. End Function
   

复制代码