将度-分-秒值转换为十进制度

在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）类型。


结果示例：



文章来源：http://kikitamap.com/2013/07/22/ConvertDMS/