German Distanz per lat und lon

[mcmanu]

Ist es Möglich die distanz zwischen zwei lat und lon werten zu berechnen?

Beispiel: meine location und zur nächsten stadt
Meine Location lat=48.82342 lon 13,24234 -- nächste stadt 48.2345, 13.23455

Entfernung von mir zur stadt 3,6 km

Hoffe mir kann da jemand weiterhelfen

 

[Deleted member 103]

Hallo mcmanu,

schau dir diese Seite an Link

es ist sehr gut beschrieben.


Ciao,
Filippo

 

[mcmanu]

Danke Filiopo Sieht vielversprechend aus werd mich morgen mal damit auseinander setzten
Danke nochmal

 

[klaus]

So ist es einfacher:

Dim loc1, loc2 As Location
Dim Distanz As Double 

loc1.Initialize2(48.82342, 13.24234)
loc2.Initialize2(48.2345, 13.23455)
Distanz = loc1.DistanceTo(loc2) / 1000  ' in km

Mit der GPS library.

Mit den Koordinaten die Du gegeben hast ist die Distanz aber weit grösser als 3.6 km!

Beste Grüsse.

 

[mcmanu]

Danke Klaus so ist es natürlich sehr leicht Danke dafür
Ja das war jetzt nur ein beispiel mit Phantasie daten