Math et Trigo Conversion nombre décimale en Degrés, Minutes, Secondes.

[VIARD]

Bonjour à tous
Voici une petite fonction de conversion d'un nombre décimale transformé en degrés minutes secondes.
Exemple : 1 radian = 180/PI donne --> 57,2956455309 en nombre décimale.
la fonction donnera ---> 57° 17' 45".
j'en ai profité pour traiter la valeur négative d'un angle.

Function Conversion_DecimaleDegre(Dec_Deg) As Variant
Dim Test, Deg%, Minutes#, Secondes$, Sign$
'------ Traitement signe ------
Sign = ""
If Dec_Deg < 0 Then
    Sign = "-"
    Dec_Deg = Abs(Dec_Deg)
End If
'------------------------------
Deg = Int(Dec_Deg)
Minutes = (Dec_Deg - Deg) * 60
Secondes = Format((Minutes - Int(Minutes)) * 60, "0")
'-----------------------
Conversion_DecimaleDegre = Sign & Deg & "° " & Int(Minutes) & " ' " & Secondes & Chr(34)
End Function

l'explication du code parle de lui-même.
Bon explication succincte. Un aperçu de ce que fait la fonction:
Traitement du signe.
Découpage des degrés : la fonction commence par extraire la partie entière des degrés à partir de la valeur décimale fournie.
Calcul des minutes : Elle calcule ensuite les minutes en prenant la partie décimale restante et en la multipliant par 60.
Calcul des secondes : Les secondes sont calculées à partie de la partie décimale des minutes, également multipliée par 60.
Formatage du résultat : Enfin la fonction assemble le tout dans un format lisible, signe avec les degrés, minutes et secondes.
Salutation

Jean-Paul