VBScript TwoDigit

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

'*

'* Function TwoDigit

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2006-01-11

'* Modified: 2006-01-11

'*

'* Purpose: Returns integers < 10 as two digits (01, 02,..,09)

'*

'*   Input:

'*        intDigit  Any integer value.

'*

'*  Output: Returns integers < 10 as a two digit string (01, 02,..,09).

'*          Returns integers >= 10 as the original integer.

'*

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

Function TwoDigit(ByVal intDigit)

  'Version: 1.0 2006-01-11

  intDigit = CInt(intDigit)

  If intDigit < 10 Then

    TwoDigit = "0" & CStr(intDigit)

  Else

    TwoDigit = intDigit

  End If 'intDigit < 10

End Function 'TwoDigit