Code postal calculateur de distance

J'ai une feuille de calcul d'adresses et j'ai besoin de calculer la distance entre l'ensemble de leurs codes postaux et mon code postal. Je suis assez flexible sur la méthode utilisée, mais je suis l'espoir d'une sorte de webservice ou mathématique de l'algorithme. Adresses des états-unis seulement. Essentiellement, j'ai besoin pour nourrir les 2 codes postaux et sortir de la distance entre eux.

Je suis prêt à utiliser des formules Excel ou VBA, et je peux même code quelque chose dans C#.net en cas de besoin.

Comment vous y prendriez-vous sur le calcul de ces distances?

Avez-vous regardé l'api google maps?
Raminfar -dernière fois que j'ai regardé l'api Google maps, la limite a été que toutes les informations récupérées dû être affiché sur une carte afin de satisfaire les exigences de licence. Je ne suis pas à la recherche à afficher sur une carte.

OriginalL'auteur MAW74656 | 2011-07-07

  1. 3

    C'est assez simple en fait. Télécharger une base de données de codes postaux coordonnées GPS, il y a beaucoup de sites qui ont cette donnée disponible pour le téléchargement. Ils ont la liste des coordonnées du centre de la zip code.

    Utiliser une formule pour calculer la distance la plus courte: (ex: http://www.movable-type.co.uk/scripts/latlong.html)

    OriginalL'auteur MichaelP

  2. 4

    Vous pouvez utiliser la Latitude et la Longitude.

    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 les importations du Système.Mathématiques

    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

    D'autres Liens Utiles(le Premier mentionne également VBA alternatives)

    ExcelLatLong (Mentionne également VBA alternatives)

    Zips par la latitude et de la longitude de Recherche

    VBA discussion

    EDIT: Lien ajouté en raison de commentaire la discussion

    Plus D'Infos(Formule Excel)

    Pourriez-vous nous expliquer la logique derrière votre formule Excel? Je ne vois pas de correspondance avec la formule de la Puce de Pearson site par un lien. Aussi ce qui suppose une forme sphérique de la Terre plutôt qu'à une vision plus réaliste de l'ellipsoïde, mais je suppose que c'est parfaitement bien pour cette application, depuis l'incertitude sera beaucoup plus petite que la taille des codes postaux... sauf peut-être dans les grandes villes compactes où zip code peut être assez petite. Je suis peut-être trop anal.
    Corbett Excelle doit être converti en Radians (je vais fournir un autre lien dans ma réponse). Je n'étais pas visant à briser vers le bas, et ne s'est pas penser comme vous quand je l'ai écrit. Mais vous faites un bon point. Je suppose que ça dépend comment il le voudrez. C'est pourquoi je l'ai lié à une autre option.

    OriginalL'auteur sealz