I've been a computer user and AVID enthusiast (of ALL types of computers, operating systems and application software) since my brilliant engineering / programming-savant just-turned 89-year old uncle got me an Apple II Plus when I started college in 1980. While I took as many programming classes as my BSME degree allowed, what the "golden age" of personal computers really facilitated for me was a confident personality. I worked in a retail computer store from the Summer of 1982 to August 1985. I had an excellent, extremely enlightened boss who grew to pay me the same percentage OF profit (in commission) as I earned IN profit. Talk about motivation, I made ~$13,000 in the Summer of '83! Enough to allow me to naively turn down offers from IBM and GE upon graduation. History shows that GE (under Jack Welch) would have been the better professional choice, but I have absolutely no reason to regret any (except for one habit that later turned out to be EXTREMELY painful to extract) of my life-decisions at all. Extraction of that habit has somewhat damaged my mind neurologically, making me the potential best software design critic in the world. Hence this post! Chuck O'Brien 269-823-4295 (Cell) P.S. I do have ONE brilliant industry idea, but only middling confidence that I'll be able to "help the world" with it.

Dear Sir,

While surfing the internet gone through your given info on "https://docs.microsoft.com/en-us/office/troubleshoot/excel/convert-degrees-minutes-seconds-angles" , I found that the given code does not results the conversion of Latitude and Longitude to decimal degrees. It needs to be rectified so that the community does not face any issues regarding this topic.

As per my opinion I suggest the following code , just go through it.

Function DMS2Deg(ByVal sInp As String) As Double

' Converts a string like [+|-]12° 32’ 28" to decimal degrees

' The symbols don't matter; there just have to be three number groups,

' with one or more spaces between, optionally preceded by a sign.

Dim sSgn As Long

Dim i As Long

Dim avs As Variant

sSgn = IIf(Left(WorksheetFunction.Trim(sInp), 1) = "-", -1, 1)

For i = 1 To Len(sInp)

If InStr(" .0123456789", Mid(sInp, i, 1)) = 0 Then Mid(sInp, i) = " "

Next i

avs = Split(WorksheetFunction.Trim(sInp), " ")

DMS2Deg = sSgn * (avs(0) + avs(1) / 60# + avs(2) / 3600#)

End Function

1. Copy the code.




2. Press Alt+F11 to open the Visual Basic Editor (VBE)




3. From the menu bar in the VBE window, do Insert > Module




4. Paste the code in the window that opens




5. Press Alt+Q to close the VBE and return to Excel

Then with - 77°04'43" in A1,

=DMS2Deg(A1) returns 77.078611111

A needful action is requested.

Thanks & Regards

Shubham Malviya