Math et Trigo DD_DMS

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
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
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
'************************************************************************************************************
[/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)
;)
 

Pièces jointes

  • 1620083576388.png
    1620083576388.png
    91.9 KB · Affichages: 62

Discussions similaires

Statistiques des forums

Discussions
314 492
Messages
2 110 186
Membres
110 694
dernier inscrit
xaviergilb