Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function CalculateDistance(ByVal StartLongitude As Single, ByVal StartLatitude As Single, ByVal EndLongitude As Single, ByVal EndLatitude As Single) As Single
CalculateDistance = Sqr((EndLongitude - StartLongitude) * (EndLongitude - StartLongitude) * Cos((StartLatitude + EndLatitude) / 114.591559026165) * Cos((StartLatitude + EndLatitude) / 114.591559026165) * 4784.39411916406 + (EndLatitude - StartLatitude) * (EndLatitude - StartLatitude) * 4766.8999155991)
End Function