Hallo Tom,
ich hab hier so eine Formel rumfliegen, die ich mal probehalber in einer
Access (VBA) Anwendung verwendet habe:
Const Pi = 3.14159265358979
Function Arkuskosinus(x)
Arkuskosinus = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function
Function KmEntfernung(Laenge1 As Double, Breite1 As Double, _
Laenge2 As Double, Breite2 As Double) As Double
KmEntfernung = 1.852 * 60 * (180 / Pi) * _
Arkuskosinus(Sin(Breite1 * (Pi / 180)) * Sin(Breite2 * (Pi / 180)) + _
Cos(Breite1 * (Pi / 180)) * Cos(Breite2 * (Pi / 180)) * _
Cos(Abs(Laenge2 - Laenge1) * (Pi / 180)))
End Function
Ich habe versucht die Zeilenumbrüche durch "_" abzugrenzen, evtl. läuft das
schief, dann sorry.
Für kurze Entfernungen (z.B. innerhalb D) sollte die reichen.
Aber keine Garantie auf Richtigkeit.
Grüße,
Michael Donning
|
