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