Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 75

Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 80

Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 115

Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 120

Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 161

Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 166

Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 208

Warning: SQLite3::query(): database is locked in /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php on line 214

Warning: http_response_code(): Cannot set response code - headers already sent (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 115

Warning: Cannot modify header information - headers already sent by (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 117

Warning: Cannot modify header information - headers already sent by (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 117

Warning: Cannot modify header information - headers already sent by (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 117

Warning: Cannot modify header information - headers already sent by (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 117

Warning: Cannot modify header information - headers already sent by (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 117

Warning: Cannot modify header information - headers already sent by (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 117

Warning: Cannot modify header information - headers already sent by (output started at /var/www/html/vendor/miniframe/statistics/src/Service/Storage.php:75) in /var/www/html/vendor/miniframe/core/src/Core/Bootstrap.php on line 117
Stefan Thoolen .nl | VB6 Function Database

Visual Basic 6 function "strrev"

Go back

Below you'll find the source for the Visual Basic 6 function strrev.

Attribute VB_Name = "modStrrev"
' This function is downloaded from:
' http://www.stefanthoolen.nl/archive/vb6-functions/
' 
' You may freely distribute this file but please leave all comments, including this one, in it.
' 
' @Author Stefan Thoolen <mail@stefanthoolen.nl>

Option Explicit

''
' Reverse a string
' Same syntax as the PHP function 'strrev'
' http://www.php.net/manual/en/function.strrev.php
' @param    String  tstr            The input string
' @return   String                  A reversed version
' @author   Stefan Thoolen <mail@stefanthoolen.nl>
Public Function strrev(tstr As String) As String
    Dim s As String, i As Integer
    For i = Len(tstr) To 1 Step -1
        s = s & Mid(tstr, i, 1)
    Next i
    strrev = s
End Function