Funktion "TextUmdrehen()"

Der Nutzen nachfolgender Funktion hält sich in Grenzen, dennoch kann man sicher einiges daraus lernen. Die Funktion dreht einen beliebigen String um und gibt ihn zurück.

Beim Funktionsaufruf im Direktfenster

? TextUmdrehen("access")

wird ssecca zurückgegeben.

Code:

Function TextUmdrehen(Txt As String)   '--------------------------------------------------- ' Diese Funktion dreht den mitgegebenen String um ' und gibt ihr zurück '---------------------------------------------------   Dim Merk As String Dim lang As Integer Dim t As Integer   lang = Len(Txt) For t = 1 To lang Merk = Mid(Txt, t, 1) & Merk Next t TextUmdrehen = Merk   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!