Math et Trigo DD_DMS

[Magic_Doctor]

Convertir des coordonnées exprimées en degrés décimaux (DD) en coordonnées exprimées en degrés sexagésimaux (DMS).

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

 

[Modeste geedee]

Bonsour®

Convertir des coordonnées exprimées en degrés décimaux (DD) en coordonnées exprimées en degrés sexagésimaux (DMS).

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
'************************************************************************************************************
[/QUOTE]
Pourvu que l'on utilise le format personnalisé sexagésimal ("[h]:mm:ss" ==> "[h]\° mm\' ss\"")
Cela peut être réalisé sans utiliser de fonction  :cool: 

[ATTACH type="full"]1104487[/ATTACH]

Il existe par ailleurs la fonction native CONVERT (voir exemple  ligne 22)
;)