Int to Char and Char to Int Function

jbburf · October 8th, 2012, 02:10 PM

I am trying to convert an int to a three character string. I need to convert 1 into "001."

The built in INT() and CHAR() functions do not work.

I have created a workaround by using switch statements which works in the short term but is not an elegant solution.

Code:

Function Int_to_Char(temp As Integer) As String
    Select Case temp
    Case 1
        Int_to_Char = "001"
    Case 2
        Int_to_Char = "002"
    Case 3
        Int_to_Char = "003"
...

And:

Code:

Function Char_to_Int(temp As String) As Integer
    Select Case temp
    Case "001"
        Char_to_Int = 1
    Case "002"
        Char_to_Int = 2
    Case "003"
...

Can anyone show me a quick way to do the above conversion?

allenm · December 20th, 2012, 07:27 PM

To 0 pad a number just do something like this within your code:

Code:

'The following line makes sure integer is 3 digits long and places it in a string
  Dim sMyString As String
  sMyString = Right("00" & iTemp, 3)
  MsgBox sMyString

To return a number is a very simple number

Code:

'The following line grabs integer value of a string
  Dim iMyInt As Long
  iMyInt = Val("001")
  MsgBox iMyInt