Convert degrees/minutes/seconds to decimal format

[buvb10]

Hey all,

I am attempting to convert degrees/minutes/seconds latitude/longitude values to decimal format using the function below.

This works for data in the following format: 30° 20' 23"

However, my data includes the directional compass value at the end (eg N/S/E/W) as: 30° 20' 23" N

So can someone assist with modifying the function below to:
- Look at the last character in the string
- Where the character is W or S, multiply the entire calculation by -1


Thanks!

- Brian



Function Convert_Decimal(Degree_Deg As String) As Double
' Declare the variables to be double precision floating-point.
Dim degrees As Double
Dim minutes As Double
Dim seconds As Double
' Set degree to value before "°" of Argument Passed.
degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
' Set minutes to the value between the "°" and the "'"
' of the text string for the variable Degree_Deg divided by
' 60. The Val function converts the text string to a number.
minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _
"°") - 2)) / 60
' Set seconds to the number to the right of "'" that is
' converted to a value and then divided by 3600.
seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _
/ 3600
Convert_Decimal = degrees + minutes + seconds
End Function

 

[JoeMo]

Untested:

Function Convert_Decimal(Degree_Deg As String) As Double
' Declare the variables to be double precision floating-point.
Dim degrees As Double
Dim minutes As Double
Dim seconds As Double
Dim sDirection As String
sDirection = Right(Trim(Degree_Deg), 1)
' Set degree to value before "°" of Argument Passed.
degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
' Set minutes to the value between the "°" and the "'"
' of the text string for the variable Degree_Deg divided by
' 60. The Val function converts the text string to a number.
minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _
"°") - 2)) / 60
' Set seconds to the number to the right of "'" that is
' converted to a value and then divided by 3600.
seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _
/ 3600
Select Case sDirection
    Case "E", "N": Convert_Decimal = degrees + minutes + seconds
    Case "S", "W": Convert_Decimal = -1 * (degrees + minutes + seconds)
    Case Else: Convert_Decimal = CVErr(xlErrNA)
End Select
End Function

 

[buvb10]

Thank you Joe - that solution works just fine. Appreciate your help!

 

[JoeMo]

Thank you Joe - that solution works just fine. Appreciate your help!

You are welcome - thanks for your reply.