For everyone else who is not getting a copy of the source code, here is the calculation that I used. You can determine the (rough) distaince between 2 sets of Lat. and Long. points using the following code:
Const radian = .01745329252
Dim x1, y1, x2, y2 'x = Lat. y = Long.
Dim TotalDistance, TempDistanceValue
'This operation could be preformed in the following equation but doing it this way simplifies the equation.
x1 = x1 * radian
x2 = x2 * radian
y1 = y1 * radian
y2 = y2 * radian
TempDistanceValue = (sin(x1) * sin(x2)) + (cos(x1) * cos(x2)) * cos(abs(y1 - y2))
TempDistanceValue = atn(-TempDistanceValue / Sqr(-TempDistanceValue * TempDistanceValue +1)) + 2 * Atn(1)
TotalDistance = (TempDistanceValue / radian) * 80
hth.
-Doug
================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========