Recherche
Recherche
Les mémos
Je débute...
Visites

 998904 visiteurs

 2 visiteurs en ligne

Inverser une chaîne de caractères

Alternative à la fonction "StrReverse" apparue avec Access 2000

Public Function fStrReverse(ByVal sIn As String) As String
    Dim nC As Integer, sOut As String

    For nC = Len(sIn) To 1 Step -1
        sOut = sOut & Mid(sIn, nC, 1)
    Next nC

    fStrReverse = sOut

End Function


Catégorie : Les mémos - String
Page lue 2698 fois