Domino 9 und frühere Versionen > ND8: Entwicklung

Umkreissuche mit Koordinaten

<< < (3/3)

pram:

--- Zitat von: pram am 13.04.10 - 12:50:52 ---Lass dir strQuery doch mal ausgeben und schreib es testweise (ohne den < 200 Vergleich) in ein berechnetes Feld und schau ob/was da überhaupt raus kommt.

--- Ende Zitat ---

So kannst du plausibel abschätzen ob es denn klappt. Es sollte die Entfernung in Kilometer raus kommen.
Die Konvertierung von Grad nach Rad ist nämlich immer noch falsch in deiner Formel. Die Klammern um (180 * @Pi) müssen weg. Oder das * durch ein / ersetzen, so wie du es ganz am Anfang schon mal hattest.


--- Zitat ---So bin der Sache mal nachgegangen. Gemerkt habe ich, dass die Koordinaten mit nem Punkt (".") getrennt ist.

--- Ende Zitat ---
Speichere die Koordinaten doch als echte Zahlenfelder ab. (Zahlen als Text ist "Murks"... Datum als Text ist "totaler Murks" ;) )

Gruß
Roland

bikerboy:
So habe die Nacht noch getüffelt


--- Code: ---strQuery = {!@IsAvailable(accGoogleAlert)& @LowerCase(Form) = "address"
& (
@ACos(
@Sin(@TextToNumber(@ReplaceSubstring(} + FLDLATI + {;".";",")) /(180/@Pi)) * @Sin((@TextToNumber(@ReplaceSubstring("} + SourceLat + {";".";","))/ (180/@Pi)))
+ @Cos(@TextToNumber(@ReplaceSubstring(} + FLDLATI + {;".";","))/(180/@Pi)) * @Cos(@TextToNumber(@ReplaceSubstring("} + SourceLat + {";".";","))/(180/@Pi))
* @Cos( (@TextToNumber(@ReplaceSubstring(} + FLDLONG + {;".";","))/(180/@Pi)) - ( @TextToNumber(@ReplaceSubstring("} + SourceLon + {";".";","))/ (180/@Pi)))
)* 6378,1237
<}+ strUmkreis + {
)
}

Set collSearch = DBSource.Search(strQuery,Nothing,0)
--- Ende Code ---

Der Code funktioniert nun zuverlässig.

Navigation

[0] Themen-Index

[*] Vorherige Sete