İki farklı Enlem ve Boylam arasındaki mesafeyi Km veya Mil cinsinden aşağıdaki KTF ile alabilirsiniz.
Public Function Mesafe(ByVal lat1 As Double, ByVal lon1 As Double, ByVal lat2 As Double, ByVal lon2 As Double, ByVal birim As String) As Double
Dim fark As Double, mes As Double
fark =...