VBScript Dec2Str

'********************************************************************

'*

'* Function Dec2Str

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2004-12-05

'* Modified: 2004-12-05

'*

'* Purpose: Change any number into a String respresented by ASCII/ANSI

'*            characters.

'*

'*   Input: numAny = A number of any size.

'*          lANSI  = The lowest ANSI character that can be specified.

'*          hANSI  = The higest ANSI character that can be specified.

'*

'*   Notes: This function's limit is 2,147,483,647.

'*

'********************************************************************

Function Dec2Str(ByVal numAny, ByVal lANSI, ByVal hANSI)

  'Version 1.0 2004-12-05

  Dim strNew, intMaxChar, intTemp

  strNew = ""

  intMaxChar = hANSI - lANSI + 1

  Do While numAny > 0

    intTemp = (numAny MOD intMaxChar) + lANSI

    strNew = Chr(intTemp) & strNew

    numAny = Int(numAny / intMaxChar)

  Loop 'numAny > 0

  Dec2Str = strNew

End Function 'Dec2Str