Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- StartPtr = 0
- StopPtr = Hubs(Index1Integer).Lat.IndexOf("°", StartPtr)
- degrees = Convert.ToDouble(Hubs(Index1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
- StartPtr = StopPtr + 1
- StopPtr = Hubs(Index1Integer).Lat.IndexOf("'", StartPtr)
- minutes = Convert.ToDouble(Hubs(Index1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
- StartPtr = StopPtr + 1
- StopPtr = Hubs(Index1Integer).Lat.IndexOf("""", StartPtr)
- seconds = Convert.ToDouble(Hubs(Index1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
- StartPtr = StopPtr + 1
- '1 degree = 60 minutes = 3600 seconds
- '1 minute = 60 seconds
- Lat1Double = degrees + minutes / 60.0 + seconds / 3600.0
- Lat1TextBox.Text = Lat1Double.ToString("F5")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement