How to convert degrees/minutes/seconds to decimal Degrees in Excel

[المشرف العام]

[h=2]How to convert degrees/minutes/seconds to decimal Degrees in Excel[/h]

كيفية تحويل الاحداثيات من دقائق ودرجات وثواني الى درجات عشرية ببرنامج الاكسل


وذلك عن طريق كود Visual Basic داخل ملف الاكسل


Copy This Code

​

​

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 + secondsEnd Function​

To Download This Code
Here ​

To use this function, create a conversion formula, as in the following example:​

• Start Excel and press ALT+F11 to start the Visual Basic Editor.
• On the Insert menu, click Module.
• Enter the sample code for the Convert_Decimal custom function described above into the module sheet.
• Press ALT+F11 to return to excel.
• In cell A1 type the following formula:=Convert_Decimal("10° 27' 36")

​

​

أكثر...