Degrees, seconds, to longitude and latitude

01. Option Explicit 02. '====================================== 03. 'Latitude and longitude angle format to radian format conversion 04. ' 05. 'Http://www.cnhup.com/ 06. '====================================== 07. Type tdfm 08. D As Integer 09. F As Integer 10. M As Integer 11. End Type 12. Function Dfm2jw (strdfm As String ) 13. Dim ADFM As Tdfm 14. Dim Vecsplit As Variant 15.    16. Vecsplit = Split (strdfm, "°" , 2) 17. ADFM. d = Val (vecsplit (0 )) 18. Vecsplit = Split (vecsplit (1 ), "′" , 2) 19. ADFM. f = Val (vecsplit (0 )) 20. ADFM. M = Val (vecsplit (1 )) 21.    22. Dfm2jw = ADFM. d + ADFM. f/60 + ADFM. M/3600 23. End Function

The following is a typical text (A1/24, "[H] ° m' s.00") with a decimal point ″")