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
947

Membres actuellement en ligne

Statistiques des forums

Discussions
314 749
Messages
2 112 461
Membres
111 553
dernier inscrit
cecilou47