excel - 邮政编码距离计算器

Question

我有一个地址电子表格，我需要计算他们所有的邮政编码和我的邮政编码之间的距离。我对使用的方法相当灵活，但我希望有某种网络服务或数学算法。仅限美国地址。基本上，我需要输入 2 个邮政编码并找出它们之间的距离。

我愿意使用 Excel 公式或 VBA，如果需要，我什至可以在 C#.net 中编写代码。

你将如何计算这些距离？

Answer 1

您可以使用纬度和经度。

电子表格:

=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

编辑:由于评论讨论而添加了链接

More Info(Excel Formula)