Declare sub funktioniert nicht
27.07.2018 13:06:24
Marc
ich muss jede Menge Belgische Lambert2008 Koordinaten nach Länge, Breite konvertieren.
Es gibt bei www.ngi.be eine dll Bibliothek, mit der das möglich ist.
Allerdings lässt sich die dll bei Windows nicht registrieren.
Wahrscheinlich deshalb funktioniert das bei mir nicht.
ich würde Euch gerne die pdf zuschicken, die bei der dll liegt, damit mal jemand darüber schaut, wie ich damit umgehen kann.
Bisher habe ich folgendes in der VBA eingeführt, um die Länge auszulesen:
Option Explicit
Declare PtrSafe Sub Lambert08ToGeoETRS89 Lib "ETRS89_LAMBERT_UTM_64bits.dll" (ByVal Xi As _
Double, ByVal Yi As Double, ByVal Hi As Double, ByRef xo As Double, _
ByRef yo As Double, ByRef Ho As Double, ByVal CentralMeridian As Double)
Function convLamb_Lon(ByVal Xi As Double, Yi As Double, Hi As Double) As Double
Dim Leer As Double
Call Lambert08ToGeoETRS89(Xi, Yi, Hi, convLamb_Lon, Leer, Leer, Leer)
End Function