Visual Basic Forum

haiflosse · Newbie Anmeldedatum: 23.03.2010 Beiträge: 15

Ich habe folgenden Code ausprobiert um eine Distanz von zwei Längengraden herauszubekommen:

private function distanz() As Single

Dim breite_neu As Single
Dim laenge_neu As Single
Dim laenge_alt As Single
Dim breite_alt As Single
Dim e As Single

breite_alt = 54.7710609436035
breite_neu = 54.77081
laenge_alt = 15.4377298355103
laenge_neu = 15.43747

e = ArcCos(Sin(breite_neu) * Sin(breite_alt) + Cos(breite_neu) * Cos(breite_alt) * Cos(laenge_neu - laenge_alt)) / 180 * 4 * Atn(1)
distanz = e * 6378.137 / 1000

end function

Function ArcCos(X As Double) As Double
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function

Das Ergebnis müssten Meter sein.
Ich bekomme da aber folgendes Ergebnis: 2,8648E-05

Hoffe da kann mir jemand weiterhelfen, dass ich da ein Vernünftiges lesbares Ergebnis herausbekomme.
Vielen Dank für jede Antwort
_________________