Вычисляет расстояние между двумя точками на сфероиде.
Visual Basic:
Function CalcSphericalDistance(Lat1 As Double, Lon1 As Double, Lat2 As Double, Lon2 As Double) As Double
Lat1 - широта первой точки земной поверхности в градусах
Lon1 - долгота первой точки земной поверхности в градусах
Lat2 - широта второй точки земной поверхности в градусах
Lon2 - долгота второй точки земной поверхности в градусах
Метод возвращает значение расстояния в метрах.