Private Sub Geocode()
formatedgeolatitude = "" For j = 1 To Len(GPRMClatitude) Geolatitude = Mid(GPRMClatitude, j, 1) If Geolatitude = "." Then Geolatitudeminute = (Mid(GPRMClatitude, j - 2, Len(GPRMClatitude))) Geolatitudeminuteremainder = (Mid(GPRMClatitude, j + 1, 6)) Geolatitudedegree = (Mid(GPRMClatitude, 1, j - 3)) End If Next ‘adjustment of data precision If Len(Geolatitudeminuteremainder) = 4 Then ahes = Double.Parse(Geolatitudeminute) / 600000 If Len(Geolatitudeminuteremiander) = 5 Then ahes = Double.Parse(Geolatitudeminute) / 6000000
Geolatitude = Double.Parse(Geolatitudedegree) + ahes End Sub |