Magic_Doctor
XLDnaute Barbatruc
Convertir des coordonnées exprimées en degrés décimaux (DD) en coordonnées exprimées en degrés sexagésimaux (DMS).
Code:
Function DD_DMS#(ByVal Coordd As Double, ByVal dms As Byte)
'******************************************************************************************************************
'Convertit des coordonnées exprimées en degrés décimaux (DD) en coordonnées exprimées en degrés sexagésimaux (DMS)
'Dranreb
'******************************************************************************************************************
'- cordd = coordonnée en degrés décimaux
'- dms = 1 ---> renvoie les degrés
'- dms = 2 ---> renvoie les minutes
'- dms = 3 ---> renvoie les secondes
Dim deg As Long, min As Long
Coordd = Abs(Coordd) * 3600
Select Case dms
Case 1: DD_DMS = Int(Coordd / 3600) 'degrés
Case 2: DD_DMS = Int(Coordd / 60) Mod 60 'minutes
Case 3: DD_DMS = Coordd - 60 * Int(Coordd / 60) 'secondes
End Select
End Function