在ArcMap中,在表中新建一个字段,用于存储新的十进制度值,使用字段计算器和 VB 脚本实现。
如下示例,其中,假设 Latitude 是表中存储 DMS 纬度值字段的名称,经纬度数据中的度分秒三个数据是以空格分隔。
Dim Degrees
Dim Minutes
Dim Seconds
Dim DMS
Dim DD
DMS = Split([Latitude])
Degrees = CDbl(DMS(0))
Minutes = CDbl(DMS(1))
Seconds = CDbl(DMS(2))
If Degrees < 0 Then
DD = -(Seconds/3600) - (Minutes/60) + Degrees
Else
DD = (Seconds/3600) + (Minutes/60) + Degrees
End If
PS:使用到的VBScript 函数:
(1)Split:
Split(expression[,delimiter[,count[,compare]]])
(2)CDbl:
CDbl 函数可把表达式转换为双精度(Double)类型。
结果示例: