Question

我有两对纬度/经度，想要找到它们之间的距离。我坚持在这个特定的网站上使用经典ASP。

我发现了大量使用Haversine方程的代码示例，但没有在ASP中（缺少ACos函数，并且没有内置pi！我最终得到了一些代码，但是经过仔细测试后，它被证明是有缺陷的。我对球面几何的理解还不够好，所以如果他们之前在ASP中做过这样的话，请有人说吗？！谢谢。

Answer 1

亲爱的，亲爱的。我刚刚成为一个完全白痴，并且在我进入三角学之前没有发现一些将我的lat / long设置为整数的代码。我觉得很蠢....

至少这意味着我的代码是正确的，所以我会在这里发布它，以防它帮助其他人：

'calculate distance in miles between two coordinates
Function DistanceBetweenPoints(iLat1, iLong1, iLat2, iLong2)
    Dim iDistance
    'first assume that the earth is spherical (ha ha)
    iDistance = ACos( ( Sin(ToRad(iLat1)) * Sin(ToRad(iLat2)) ) + ( Cos(ToRad(iLat1)) * Cos(ToRad(iLat2)) * Cos(ToRad(iLong2) - ToRad(iLong1)) ) ) * 3959 'mean radius of earth in miles
    DistanceBetweenPoints = CInt(iDistance) 'round up to lose decimal place
End Function

'ASP doesnt have these two trigonometric functions, or pi, built in (needed above)
Const PI = 3.141592653589793100 'use this value from SQL
Function ToRad(iDegrees)
    ToRad = CDbl(iDegrees) * PI / 180
End Function 
Function ACos(x)
If x = 1 Then
        ACos = 0
    ElseIf x= -1 Then
        Acos = PI
    Else
        ACos = ATn(-x / Sqr(-x * x + 1)) + 2 * ATn(1)
    End If
End Function

Answer 2

此代码源更完整：距离可以是英里，或公里，或海里。 http://www.geodatasource.com/developers/asp

Classic ASP中两个纬度/经度点之间的距离

2 个答案: