Advertisement
Guest User

Untitled

a guest
Aug 24th, 2016
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.73 KB | None | 0 0
  1. StartPtr = 0
  2. StopPtr = Hubs(Index1Integer).Lat.IndexOf("°", StartPtr)
  3. degrees = Convert.ToDouble(Hubs(Index1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  4. StartPtr = StopPtr + 1
  5. StopPtr = Hubs(Index1Integer).Lat.IndexOf("'", StartPtr)
  6. minutes = Convert.ToDouble(Hubs(Index1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  7. StartPtr = StopPtr + 1
  8. StopPtr = Hubs(Index1Integer).Lat.IndexOf("""", StartPtr)
  9. seconds = Convert.ToDouble(Hubs(Index1Integer).Lat.Substring(StartPtr, StopPtr - StartPtr))
  10. StartPtr = StopPtr + 1
  11. '1 degree = 60 minutes = 3600 seconds
  12. '1 minute = 60 seconds
  13. Lat1Double = degrees + minutes / 60.0 + seconds / 3600.0
  14. Lat1TextBox.Text = Lat1Double.ToString("F5")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement