DerekReynoldsDotCom

Ever had to create a sequential numbering system and the requirements defined a prefix of 0’s? (00003433).

Below is a function I wrote to automate the number generation:

Function AddLeadingZeros(OriginalNum As String, TotalLength As Integer)
AddLeadingZeros = String(TotalLength - Len(OriginalNum),"0") & OriginalNum
End Function

The first parameter is the number you wish to use as the base before the prefix of 0’s. The second parameter is the total length you wish the number structure to be.

Eg.
MyNumber = AddLeadingZeros("55",10)

Will return 0000000055

This entry was posted on Monday, July 4th, 2005 at 11:19 am and is filed under Lotus Notes/Domino. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.