根据经纬度求距离的应用程序

Softwares For Wireless Network Post-Processing
1

根据经纬度求距离的应用程序
很方便的东东

???.rar (208 KB)

2

是一个宏还是一个小软件？

3

Pl explain in english what you want
Thanks

4

Most the files were free. I download the Pay for Thread but all the pdf file were chinese

5

我有跟他一样的，免费的

6

就是一个小软件而已，这还要3个金钱？太黑了！

7

应该有算法的吧？网上的算法，可以在EXCEL中实现计算的！

8

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