select and insert distance

danja

New member
Joined
May 17, 2006
Messages
2
Programming Experience
Beginner
I got this code to calculate distance between two Longitude and Latitudes.
I need to Select the Lats, Longs from Table Location and Table History

Then I need the mileage to insert into Table History "miles from"
CODE::

Public Function distance(ByVal lat1 As Double, ByVal lon1 As Double, ByVal lat2 As Double, ByVal lon2 As Double, ByVal unit As Char) As Double
Dim theta As Double = lon1 - lon2
Dim dist As Double = Math.Sin(deg2rad(lat1)) * Math.Sin(deg2rad(lat2)) + Math.Cos(deg2rad(lat1)) * Math.Cos(deg2rad(lat2)) * Math.Cos(deg2rad(theta))
dist = Math.Acos(dist)
dist = rad2deg(dist)
dist = dist * 60 * 1.1515
If unit = "K" Then
dist = dist * 1.609344
ElseIf unit = "N" Then
dist = dist * 0.8684
End If
Return dist
End Function

Private Function deg2rad(ByVal deg As Double) As Double
Return (deg * Math.PI / 180.0)
End Function

Private Function rad2deg(ByVal rad As Double) As Double
Return rad / Math.PI * 180.0
End Function
 
yes

Yeah I would like to know whow to get the two tables and the location then insert into the databse within the one transaction
 
Back
Top