Hallo Ralf,
Habe bereits was erarbeitet ( siehe unten, funzt), nur klappt die Eingrenzung mit der WHERE-Klausel nicht.
"FROM Deutschland Where DistanceInKM < 200;"
Es geht so mit der Where-Klausel nicht, da nur vorhandene Spalten eingrenzt werden können.
Mit Having habe ich auch nicht hinbekommen.
Hast du hierzu den entscheidenen Tipp?
Function SelectStatement(LaB As String, LoB As String, Entfernung As String, Operator As String) As String
SelectStatement = "SELECT PLZ, Ort, KFZKennz, Bundesland, Lat, Lon, " + _
"3.14159265358979 AS PI, " + _
"Cdbl(iif(instr(1, lat, ""."") = 0, lat, left(lat, instr(1, lat, ""."") - 1) & "","" & mid(lat, instr(1, lat, ""."")+1))) * PI / 180 AS hn, " + _
"Cdbl(iif(instr(1, lon, ""."") = 0, lat, left(lon, instr(1, lon, ""."") - 1) & "","" & mid(lon, instr(1, lon, ""."")+1))) * PI / 180 AS he, " + _
LaB + " * PI / 180 AS n, " + _
LoB + " * PI / 180 AS e, " + _
"COS(he - e) * COS(hn) * COS(n) + SIN(hn) * SIN(n) AS co, " + _
"atn(ABS(sqr(1 - co * co) / co)) AS ca, " + _
"6367 * iif(co < 0, PI - ca, ca) AS DistanceInKM " + _
"FROM Deutschland;"
End Function