Math et Trigo ConvertirDegresDecimauxEnMinutes

Magic_Doctor

XLDnaute Barbatruc
Convertir des degrés décimaux en minutes.
VB:
Function ConvertirDegresDecimauxEnMinutes%(DD#)
'****************************************
'Converti des degrés décimaux en minutes
'Magic_Doctor
'****************************************
'- DD : degrés décimaux
'Ex : 1,63° --> 98'

Dim deg1%, deg2#, min%

    deg1 = Int(DD)            'à gauche de la virgule
    deg2 = DD - deg1          'à droite de la virgule
    min = (deg1 + deg2) * 60  'minutes
    
    ConvertirDegresDecimauxEnMinutes = min

End Function
 

Discussions similaires

Réponses
1
Affichages
923

Statistiques des forums

Discussions
314 493
Messages
2 110 197
Membres
110 703
dernier inscrit
papysurf