I am having trouble working out distance between two cities. It doesn't happen on all cities but it goes wrong on London and adelaide.
London being 51.3 / 0.1
I get an answer of 3,785,583.93216433
it should be more like 16,000,000
my code is
Dim gs As GeoStruct, iretval As Integer
gs.Latitude1 = 51.3
gs.Longitude1 = 0.1
gs.Latitude2 = -34.55
gs.Longitude2 = -138.35
gs.geoid = 16 '' this specifies the elipsoid measurements 16 is international
iretval = VInverse(gs)
If iretval = WICNOERROR Then
lblAnswer.Caption = CStr(gs.Distance)
lblAnswer.Caption = "There was an error working out the distance, ret val : " & iretval
Am I doing something wrong ??