Excel - hemelsbrede afstand functie (UDF)

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

Noot: in zijn algemeenheid geldt dat gebruikersgedefinieerde functies trager worden uitgevoerd dan standaard functies, wat nadelig kan worden bij grote hoeveelheden formules.
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 Range, LonFrom As Range, LatTo As Range, LonTo As Range) As Double Const Pi = 3.14159265358979 Const R = 6371 Dim dLat As Single, dLon As Single, lat1 As Single, lat2 As Single, a As Single lat1 = LatFrom * Pi / 180 lat2 = LatTo * Pi / 180 dLat = (LatTo - LatFrom) * Pi / 180 dLon = (LonTo - LonFrom) * Pi / 180 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