Uygulama İki koordinat (Enlem boylam) arası mesafe ölçümü

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 = lon1 - lon2
    mes = Math.Sin(radyanacevir(lat1)) * Math.Sin(radyanacevir(lat2)) + Math.Cos(radyanacevir(lat1)) * Math.Cos(radyanacevir(lat2)) * Math.Cos(radyanacevir(fark))
    mes = WorksheetFunction.Acos(mes)
    mes = dereceyecevir(mes)
    mes = mes * 60 * 1.1515
    If birim = "Km" Then
        mes = mes * 1.609344
    ElseIf birim = "Mil" Then
        mes = mes * 0.8684
    End If
    Mesafe = mes
End Function

Function radyanacevir(ByVal deg As Double) As Double
    radyanacevir = (deg * WorksheetFunction.Pi / 180#)
End Function

Function dereceyecevir(ByVal rad As Double) As Double
    dereceyecevir = rad / WorksheetFunction.Pi * 180#
End Function