Write a Visual Basic function to convert coordinates display

Write a Visual Basic function to convert coordinates displayed as damasks (Degrees Minutes Seconds. Second Fraction)

Solution

Please use this function in your excel file to convert degree,minutes,seconds to decimal degrees

Function Coor(Input As String) As Double
Dim yDeg As Double
Dim yMin As Double
Dim ySec As Double
yDeg = Val(Left(Input, InStr(1, Input, \"°\") - 1))
yMin = Val(Mid(Input, InStr(1, Input, \"°\") + 2, _
             InStr(1, Input, \"\'\") - InStr(1, Input, _
             \"°\") - 2)) / 60
ySec = Val(Mid(Input, InStr(1, Input, \"\'\") + _
            2, Len(Input) - InStr(1, Input, \"\'\") - 2)) _
            / 3600
Coor = yDeg + yMin + ySec
End Function