如何使用 VB.NET 将 DMS 转换为 DD（坐标）

Question

目前，我在 VB.NET 中将 DMS 转换为 DD 非常困难，经过无休止的搜索并且没有运气，我打开了这个 Q，希望其他用户遇到这个问题并希望在过去！

我正在尝试将 N51°4.212'、E0°12.905' 的 DMS 转换为 DD。

阅读此问答后： Convert GPS Degrees Minutes Seconds to Decimal Degrees

我有这个函数，它抛出了完全不正确的 DD 坐标（50.9298，-0.215083333333333）：

Private Function DMS_To_DD(ByVal Degrees As String, ByVal Mins As String, ByVal Secs As String) As String
        Dim TmpMins As String = CStr(Mins) & "." & Secs
        Return CInt(Degrees) + (CDbl(TmpMins) / 60) * -1
    End Function

&然后阅读此页面：http://simoncodersoftware.wordpress.com/2013/04/09/convert-dms-to-dd-using-vb-net/

这让我想到了这个功能：

Private Function DMS_To_DD(ByVal Degrees As String, ByVal Mins As String, ByVal Secs As String) As String
        Dim TotalSecs As Integer = CInt(Mins) * 60 + Secs
        Dim Total_2 As Double = TotalSecs / 3600
        Dim X1 As String = CStr(CInt(Degrees) & CStr(Total_2))
        If X1.StartsWith("-") Then
            Return X1.Substring(0, 3) & X1.Substring(4, 5)
        Else
            Return X1.Substring(0, 2) & X1.Substring(3, 5)
        End If
    End Function

返回无效坐标：51.1255, 0045138

调用这两个函数： DMS_To_DD(51, 4, 212) DMS_To_DD(0, 12, 905)

我在这里出错的任何想法？这个问题快把我逼疯了！

Answer 1

第一个函数使用了一个完全错误的公式。而第二个，该函数需要一个整数分钟，或者换句话说，将十进制分钟转换为整数。

调用两个函数：DMS_To_DD(51, 4, 212) DMS_To_DD(0, 12, 905)

您对坐标值表示的理解也是错误的。 N51°4.212' 不等于 51 度 4 分 212 秒。 E0°12.905' 0 度 12 分 905 秒也是如此。

更新

抱歉，前面的函数只适用于 +ve 度数。我已经更改了公式以正确处理 DMS 值的 NSWE，但代价是函数的额外参数 nswe 以确定返回的十进制度数的符号。试试这个：

Private Function DMS_To_DD(nswe As String, ByVal deg As UInteger, ByVal min As Double, ByVal sec As Double) As Double
    ' throw exception if min and/or sec are negative values
    If min < 0 Or sec < 0 Then
        Throw New ArgumentOutOfRangeException("min and/or sec", "Argument must be a positive value.")
    End If

    Dim sign As Integer

    ' nswe checking below only considers 's' or 'w' value 
    ' in order to determine -ve degrees. 
    ' 'n', 'e' or any invalid string will be default to +ve degrees.
    Select Case nswe.ToUpper
        Case "S", "W" : sign = -1
        Case Else : sign = 1
    End Select

    Return sign * (deg + (min * 60 + sec) / 3600)
End Function

例如：

要转换 N54° 6.279'：

DMS_To_DD("N", 54, 6.279, 0) ' returns 54.10465

要转换 W4° 44.362'：

DMS_To_DD("W", 4, 44.362, 0) ' returns -4.73936666666667

希望这会有所帮助。