Excel - Hemelsbrede afstand functie

MS Excel 'standaard' formule

Gegeven de volgende invoervelden (in graden): van breedtegraad (cel A2), van lengtegraad (cel B2), naar breedtegraad (cel C2), naar lengtegraad (cel D2), is de formule

=IFERROR(ACOS(COS(RADIANS(90-A2))*COS(RADIANS(90-C2))+SIN(RADIANS(90-A2))*SIN(RADIANS(90-C2))*COS(RADIANS(B2-D2)))*6371;0)
Afhankelijk van jouw MS Excel instellingen kan het zijn dat je de puntkomma moet vervangen door een komma.

Alternatieve gebruikersgedefinieerde functie: MS Excel VBA code voor in een module

In MS Excel, druk Alt+F11 om de Visual Basic Editor (Windows) te openen. Via top menu: Insert → Module. Kopieer onderstaande MS Excel VBA code in the module.

Public Function globeDistance(LatFrom As Single, LonFrom As Single, LatTo As Single, LonTo As Single) As Single Const toRadians = 3.14159265358979 / 180 Const R = 6371 Dim dLat As Single, dLon As Single, lat1 As Single, lat2 As Single, a As Single lat1 = LatFrom * toRadians lat2 = LatTo * toRadians dLat = lat2 - lat1 dLon = (LonTo - LonFrom) * toRadians a = Sin(dLat / 2) * Sin(dLat / 2) + Sin(dLon / 2) * Sin(dLon / 2) * Cos(lat1) * Cos(lat2) globeDistance = R * 2 * WorksheetFunction.Atan2(Sqr(1 - a), Sqr(a)) End Function
Noot: in zijn algemeenheid geldt dat gebruikersgedefinieerde functies trager worden uitgevoerd dan standaard functies, wat nadelig kan worden bij grote hoeveelheden formules.