Convertion DMS en DD

Salut Optimix,

J'ai applique ta function tout fonctionne.

j'ai corrige cela (un detail) "' " & sens en cela "'", j,avais un espace en trop.

Mais je n'arrive pas a corriger l'espace entre le ° et les minutes decimales.

A+

Modifie la dernière ligne par :

DMS_DDM = DMS_DDM & Left(Trim(Str(minutes)), 8) & "'" & sens

oK MERCI !

Optimix,

j'ai essaye cela et j'ai un problème en jaune, il ne prends pas le N, je n'ai pas de 09 .

A+

Function DMS_DDM(ByVal ref As String) As String
    Dim table() As String
    Dim minutes As Double
    Dim sens As String

    sens = Right(ref, 1)
    table = Split(ref, "°")
    DMS_DDM = table(0) & "°"
    table = Split(table(1), "'")
    minutes = CDbl(Left(table(0), 2))
    minutes = minutes + CDbl(Left(table(1), 2)) / 60
    If minutes < 10 Then
        DMS_DDM = DMS_DDM & "0" & Left(Trim(Str(minutes)), 8) & "'" & sens
    Else
        DMS_DDM = DMS_DDM & Left(Trim(Str(minutes)), 8) & "'" & sens
    End If
End Function

Si vous devez faire la route du Rhum avec ce setNav, ne vous étonnez pas s'il vous indique que vous êtes à Tombouctou.

Oui merci, j'aime bien faire le tour du monde ....