• Home
 · 
• String Manipulation
 · 
• NUMERIC CONVERTER! Have you ever encountered formatting numeric characters in to a specified length

NUMERIC CONVERTER! Have you ever encountered formatting numeric characters in to a specified length

NUMERIC CONVERTER! Have you ever encountered formatting numeric characters in to a specified length, sometimes they give you a hard time

API Declarations


'You only need a command button in a form to test this code.
'This code requires you to input the number to convert then specify the length.
'Feel free to use my code for ease of coding.



Rate NUMERIC CONVERTER! Have you ever encountered formatting numeric characters in to a specified length

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Code$, Ctr%, I%, J%, ConcatenateZero$
Const ZeroSample$ = "000000000"
On Error GoTo ErrorHandler:
    ConcatenateZero = "0"
    Ctr = CodeLength
    For I = 1 To CodeLength
        If NumberToConvert <= Val(1 & Left(ZeroSample, CodeLength)) - 1 And NumberToConvert >= Val(1 & Left(ZeroSample, CodeLength - 1)) Then
            Code = NumberToConvert
            Exit For
        ElseIf NumberToConvert < Val(1 & Left(ZeroSample, I)) Then
            For J = 1 To Ctr - 2
                ConcatenateZero = ConcatenateZero & "0"
            Next J
            Code = ConcatenateZero & NumberToConvert
            Exit For
        End If
        Ctr = Ctr - 1
    Next I
    NumCodeConvert = Code
    Exit Function
ErrorHandler:
    MsgBox "Error: " & Err.Description, vbCritical + vbOKOnly, "Error " & Err.Number & " in NumCodeConvert!"
End Function

Private Sub Command1_Click()
    MsgBox NumCodeConvert(15, 5)
End Sub