Nekada sam na nekom forumu pokupio funkciju za obrtanje stringova pa je pripažem:
Code:
Function ObrniString(strZaObrtanje As Variant) As String
' Napravis kveri, na primer:
' SELECT Broj, ObrniString(Cstr(Broj)) AS Broj_Naopako FROM tbltabelaSaBorjevima
'Opis: obrće dati string
'Primer: ObrniString("1234567") vraća "7654321"
Dim nBrojac As Integer
Dim nLen As Integer 'Dužina stringa
Dim strObrnut As String
nLen = Len(strZaObrtanje)
strObrnut = ""
For nBrojac = 1 To nLen
strObrnut = Mid(strZaObrtanje, nBrojac, 1) & strObrnut
Next nBrojac
ObrniString = strObrnut
End Function
Napomena u VBA postoji i funkcija:
Code:
strReverse(strZaObrtanje as variant)
ali ako je strZaObrtanje Null sledi greška.