Bonsoir Domi, bonsoir Bebere,
La solution de Bebere était plutôt sympa, non ? Enfin, si tu veux un résultat sous forme de texte, tu peux essayer ceci :
Function DegToDMS(DegDecimaux As Double) As String
'
Dim StrResultat As String
Dim Temp As Double
'
StrResultat = (Sgn(DegDecimaux) * Int(Abs(DegDecimaux))) Mod 360 & '° '
Temp = Abs(DegDecimaux - (Sgn(DegDecimaux) * Int(Abs(DegDecimaux)))) * 60
DegToDMS = StrResultat & Int(Temp) & '' ' & _
Int((Temp - Int(Temp)) * 60 + 0.5) & ''''
End Function
Fonction qui donne un résultat sous forme de texte modulo 2 Pi.
Voili, voilà, on a quand même pas envoyé une fusée sur la lune avec ça
Amicalement
Charly
Message édité par: Charly2, à: 13/11/2005 00:16