ASP经纬度计算

2019-10-02 10:00:42 258 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

asp.net(c#)通过两个点的经纬度计算距离原理:地球赤道上环绕地球一周走一圈共40075.04公里,而@一圈分成360°,而每1°(度)有60,每一度一秒在赤道上的长度计算如下：　　40075.04km/360°=111.31955km 　　111.31955km/60=1.8553258km=1855.3m 　　而每一分又有60秒,每一秒就代表1855.3m/60=30.92m 　　任意两点距离计算公式为　　d＝111.12co 阅读详情

有一段计算经纬度的代码：
<%
x1=121.377429
y1=31.214794
x2=121.5758183
y2=31.120784

Const EARTH_RADIUS = 6378.137
Const Pi = 3.1415926535898
Function rad(d)
rad = d * Pi / 180
End Function
Function GetDistance(lat1, lng1, lat2, lng2)
Dim radlat1, radlat2
Dim a, b, s, Temp
radlat1 = rad(lat1)
radlat2 = rad(lat2)
a = radlat1 - radlat2
b = rad(lng1) - rad(lng2)
Temp = Sqr(Sin(a / 2) ^ 2 + Cos(radlat1) * Cos(radlat2) * Sin(b / 2) ^ 2)
s = 2 * Atn(Temp / Sqr(-Temp * Temp + 1))
s = s * EARTH_RADIUS

GetDistance = FormatNumber(s,2)
End Function
response.write GetDistance(x1,y1,x2,y2)
%>
单独运行正常，可是放到循环do while ....loop里面的时候，说Function rad(d) 语法错误，求解！

...全文