PDA

View Full Version : 根据经纬度求距离的应用程序


kenny
2007-04-02, 03:54 PM
根据经纬度求距离的应用程序
很方便的东东
lendy520
2007-08-12, 12:39 AM
是一个宏还是一个小软件？
clive
2007-09-09, 02:09 AM
Pl explain in english what you want
Thanks
uel888
2007-09-25, 10:58 PM
Most the files were free. I download the Pay for Thread but all the pdf file were chinese
sshjs
2007-10-24, 12:44 AM
我有跟他一样的，免费的
coolzyp
2007-12-20, 01:12 AM
就是一个小软件而已，这还要3个金钱？太黑了！
fmstereo
2008-02-26, 11:10 AM
应该有算法的吧？网上的算法，可以在EXCEL中实现计算的！
fmstereo
2008-02-26, 11:16 AM
Public Function 求距离(ByVal 经度1 As Single, ByVal 纬度1 As Single, ByVal 经度2 As Single, ByVal 纬度2 As Single)

求距离 = (111.12 * (ArcCos(Sin(弧度(纬度1)) * Sin(弧度(纬度2)) + Cos(弧度(纬度1)) * Cos(弧度(纬度2)) * Cos(Abs(弧度(经度1) - 弧度(经度2)))) * 57.2957))

If 经度1 = 经度2 And 纬度1 = 纬度2 Then 求距离 = 0


End Function