vba如何按照经纬度计算距离

在VBA中，按照经纬度计算距离可以使用Haversine公式。Haversine公式可以用来计算两个点（地球上的经纬度）之间的最短距离（球面距离），即地球上两点之间的弧长。以下是一个使用VBA编写的示例函数：

Function CalculateDistance(lat1 As Double, lon1 As Double, lat2 As Double, lon2 As Double) As Double
    Dim R As Double
    Dim dLat As Double, dLon As Double
    Dim a As Double, c As Double, d As Double

    R = 6371 ' 地球平均半径（km）
    dLat = WorksheetFunction.Radians(lat2 - lat1)
    dLon = WorksheetFunction.Radians(lon2 - lon1)

    a = Sin(dLat / 2) * Sin(dLat / 2) + Cos(WorksheetFunction.Radians(lat1)) * Cos(WorksheetFunction.Radians(lat2)) * Sin(dLon / 2) * Sin(dLon / 2)
    c = 2 * WorksheetFunction.Asin(Application.Min(Sqr(a), 1)) ' 避免计算误差超出范围
    d = R * c

    CalculateDistance = d
End Function

使用此函数，你可以传入两个点的经纬度坐标，然后计算出它们之间的距离（以km为单位）。函数返回结果将是一个浮点数，表示两个点之间的距离。例如：

Sub TestDistanceCalculation()
    Dim distance As Double
    distance = CalculateDistance(31.2304, 121.4737, 40.7128, -74.0060)
    MsgBox "两地之间的距离：" & distance & " km"
End Sub

在此示例中，我们计算了上海（31.2304° N，121.4737° E）和纽约（40.7128° N，-74.0060° E）之间的距离，并将结果以消息框的形式输出。