Am 30.03.11 11:43, schrieb Stefan Sicurella:
Ok, hab auf OpenGeodb eine Datenbank mit den Koordinaten gefunden und eine mit
den PLZ von Deutschland.
Damit komme ich erst mal klar... d.h. erst mal die Daten entsprechend
zusammenführen in meiner DB und dann sehe ich weiter
Für die Entfernungsberechnung:
-----------------------------------------------------------------------
Const PI = 3.14159265358979323846264338327950
Const EarthRadius = 6370
dim distance as double
'Frankfurt/Main, Germany
dim latitude1 as double = 50.120578
dim longitude1 as double = 8.681946
'Berlin, Germany
dim latitude2 as double = 52.531261
dim longitude2 as double = 13.410187
distance = ACos( Sin(latitude1/180*PI) * Sin(latitude2/180*PI) +
Cos(latitude1/180*PI) * Cos(latitude2/180*PI) * Cos( (longitude1/180*PI)
- (longitude2/180*PI) ) ) * EarthRadius
MsgBox Str(distance) + " Km"
-----------------------------------------------------------------------
Für die Bogenmaßberechnung in der unteren Formel kannst du dir eine
eigene Funktion bauen um das ganze zu kürzen:
Bogenmaß = GradInDezimal / 180 * PI
--
Michael Kagerbauer
http://rbcoder.de
