地圖投影-将度-分-秒值轉換為十進制度值

地圖投影-将度-分-秒值轉換為十進制度值

下面是将度分秒轉換為十進制度的簡單等式：

DD = (Seconds/3600) + (Minutes/60) + Degrees

如果角度值是負數，則轉換方法不同。其中一種方法是：

DD = - (Seconds/3600) - (Minutes/60) + Degrees

以下說明講解了使用字段電腦，将表中字段裡以度分秒表示的經度或緯度值轉換為十進制度數的方法。

代碼使用 VBScript 編寫，但能夠輕松轉化為其他程式設計語言。

它假定度分秒是以字元串（文本）的形式存儲的，數字間留有空格且不帶任何符号。例如，資料将被存儲為：

25 35 22.3

其中 25 是度，35 是分，22.3 是秒。

輸出結果将被存儲到數值字段中。

步驟：

1. 将表添加至 ArcMap。
2. 在内容清單中右鍵單擊該表，然後單擊打開。
3. 單擊選項按鈕，然後單擊添加字段。
4. 在名稱字段中輸入 Lat2。
5. 單擊類型下拉箭頭，然後在清單中單擊雙精度。
6. 單擊确定。
7. 右鍵單擊 Lat2 字段，然後單擊字段電腦。
8. 若彈出消息框則單擊是。
9. 選中進階複選框。
10. 将以下代碼粘貼到表達式框：
11. Dim Degrees
12. Dim Minutes
13. Dim Seconds
14. Dim DMS
15. Dim DD
16. DMS = Split([Latitude])
17. Degrees = CDbl(DMS(0))
18. Minutes = CDbl(DMS(1))
19. Seconds = CDbl(DMS(2))
20. If Degrees < 0 Then
21. DD = -(Seconds/3600) - (Minutes/60) + Degrees
22. Else
24. End If
25. 将以下代碼粘貼到對話框底部的 Lat2 = 框中：
26. CDbl(DD)
28. 對于經度值的轉換，重複步驟 3 到步驟 12 的過程。