Skip to content

Instantly share code, notes, and snippets.

Avatar

Niels Gandraß ngandrass

View GitHub Profile
@ngandrass
ngandrass / to_utm.vba
Created May 13, 2020 — forked from kissmygritts/to_utm.vba
VBA lat long to UTM conversion
View to_utm.vba
Function to_utm(x, y) As Collection
Dim coordinates As Collection
Set coordinates = New Collection
E = 0.00669438
R = 6378137
K0 = 0.9996
E2 = E * E