Math et Trigo ConvertirDegresEnDegMin

[Magic_Doctor]

Convertir des degrés décimaux en degrés et minutes sous forme sexagésimale ou décimale.

Function ConvertirDegresEnDegMin$(degres#, Optional chx As Boolean = True)
'***************************************************************************************
'Converti des degrés décimaux en degrés et minutes sous forme sexagésimale ou décimale
'Magic_Doctor
'***************************************************************************************
'- degrés : le nombre de degrés DÉCIMAUX que l'on veut convertir en X° Y' ou X°,Y'
'- chx : si omis ou True : 12,4587 --> 12° 27'
'        si False :  12,4587 --> 12,27

Dim deg%, min As Byte

    deg = Int(degres)
    min = Round((degres - deg) * 60, 2)
    If min = 60 Then deg = deg + 1: min = 0
    
    ConvertirDegresEnDegMin = IIf(chx, deg & "°" & IIf(min = 0, "", " " & min & "'"), deg & IIf(min = 0, "", "," & min))

End Function