Math et Trigo DD_DMS

Magic_Doctor · 3 Mai 2021

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 · 4 Mai 2021

Bonsour®

Magic_Doctor à dit:

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)
;)

Math et Trigo DD_DMS

Magic_Doctor

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

Discussions similaires