Inverser une chaîne

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