Need to add leading zeros to a variable

[garethn]

I have a variable (ProductID which currently looks like this

5426

I need to add leading zeros to this field to make it up to 18 chars long...so it looks like this

000000000000005426

currently have the length of the string

'read/loop array

For r = 1 To rcount
ProductID = arrProductBudget(r, 1)
ProductDesc = arrProductBudget(r, 2)
PriceInZpic = arrProductBudget(r, 3)

Length = 18

test = (Length - Len(ProductID))

but need to know how to add the correct leading zeros

 

[RobHudson]

Try using:
String(number, character)
number = 18 - the length of the string
character = "0"

Hope it helps
Rob

 

[sunaj]

Hi,

ProductID = Format(arrProductBudget(r, 1),"0000000000000000000&quot

Is another possibility.

Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[JohnYingling]

Or
ProductID = Right$(String$(18,"0&quot & ProductID, 18)

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript