Почтовый индекс калькулятор расстояния

Question

У меня есть таблица адресов, и мне нужно рассчитать расстояние между всеми их почтовыми индексами и моим почтовым индексом. Я довольно гибкий в используемом методе, но я надеюсь на какой-то веб-сервис или математический алгоритм. Только адреса США. В основном мне нужно кормить в 2 почтовых индексах и убирать расстояние между ними.

Я готов использовать формулы Excel или VBA, и я могу даже что-то кодировать в C# .net, если это необходимо.

Как бы вы оценили эти расстояния?

Answer 1

Это довольно простой на самом деле. Загрузите базу данных GPS-координат zip-кодов, есть много сайтов, на которых эти данные доступны для скачивания. Они будут перечислять координаты центра почтового индекса.

Используйте формулу для расчета кратчайшего расстояния: (напр: http://www.movable-type.co.uk/scripts/latlong.html)

Answer 2

Вы можете использовать широту и долготу.

Excel:

=IF(SIN(Lat1) * SIN(Lat2) + COS(Lat1) * COS(Lat2) * COS(Long1 - Long2) > 1, 
RadiusofEarth * ACOS(1), RadiusofEarth * 
ACOS(SIN(Lat1) * SIN(Lat2) + COS(Lat1) * COS(Lat2) * COS(Long1-Long2))) 

VB.NET импортирует System.Math

Private Function Distance(ByVal lat1 As Double, ByVal lon1 As Double, ByVal lat2 As Double, ByVal lon2 As Double, ByVal unit As String) As Double 
     Dim theta As Double = lon1 - lon2 
     Dim dist = System.Math.Sin(deg2rad(lat1)) * System.Math.Sin(deg2rad(lat2)) + System.Math.Cos(deg2rad(lat1)) * System.Math.Cos(deg2rad(lat2)) * System.Math.Cos(deg2rad(theta)) 
     dist = System.Math.Acos(dist) 
     dist = rad2deg(dist) 
     dist = dist * 60 * 1.1515 
     Select Case unit 
      Case "K" 
       dist = dist * 1.609344 
      Case "N" 
       dist = dist * 0.8684 
     End Select 

     Return dist 

    End Function 

Другие полезные ссылки (Первый один также упоминает альтернативы VBA)

ExcelLatLong (также упоминает альтернативы VBA)

Zips by Lat Long Lookup

VBA discussion

EDIT: Ссылка добавлена ​​из-за комментарии дискуссию

More Info(Excel Formula)