Zitat von
moelski:
Code:
r = 6378137
lat1 = (49 + 26.133/60) * pi/180
lon1 = (10 + 18.773/60) * pi/180
lat2 = (51 + 29.867/60) * pi/180
lon2 = (8 + 43.177/60) * pi/180
2 * r * sqrt(asin(sin((lat1 - lat2) / 2)[color=red]^2[/color] + cos(lat1) * cos(lat2) * sin((lon1 - lon2) / 2)^2)) = 255792m
Fehlt in deinem Delphicode nicht das rote?