Thema Datum  Von Nutzer Rating
Antwort
Rot Kürzeste Enfernung bei großen Datenmengen berechnen
 18.04.2012 22:24:00 Joachim
NotSolved

Ansicht des Beitrags:
Von:
Joachim		 Datum:
18.04.2012 22:24:00		 Views:
2318		 Rating:
     
Antwort:
  Ja
Thema:
Kürzeste Enfernung bei großen Datenmengen berechnen

Hallo zusammen,

Ich hoffe Ihr könnt mir bei meiner Problemlösung weiterhelfen.

Ich will für 81.000 Datensätze ( Wohnungen, geocodiert) die naheliegenste Filiale finden (Anzahl ca. 200 )

Der einfache Weg für jede Filiale eine Spalte zu erstellen und dann über die MIN-Funktion die kleinsten Wert zu finden wird wohl aus Gründen der Datenmenge herausfallen.

DIe Berechnung läuft nicht über den Pythagoras sondern wiefolgt:

 

Public Function getDistance(latitude1, longitude1, latitude2, longitude2)
earth_radius = 6371
Pi = 3.14159265
deg2rad = Pi / 180

dLat = deg2rad * (latitude2 - latitude1)
dLon = deg2rad * (longitude2 - longitude1)

a = Sin(dLat / 2) * Sin(dLat / 2) + Cos(deg2rad * latitude1) * Cos(deg2rad * latitude2) * Sin(dLon / 2) * Sin(dLon / 2)
c = 2 * WorksheetFunction.Asin(WorksheetFunction.ImSqrt(a))

d = earth_radius * c

getDistance = d

End Function

 

Ist der geplante Weg (Excel) für solche Datenmengen sinnvoll

und

kann Ich mir mit VBA nur den kleinsten Wert ausgeben lassen ?

 

Vielen Dank für eure Hilfe,

 

Liebe Grüsse,

Joachim

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kürzeste Enfernung bei großen Datenmengen berechnen
 18.04.2012 22:24:00 Joachim
NotSolved