leading zeros

[mako]

how do i format a number to display 5 digits with leading zeros? e.g. integer '1' will be displayed as '00001' and integer 12 will be displayed as '00012'.

- mako - [sig][/sig]

 

[froggerIII]

here is a little function that i use:

Function AddLeadingZeros(iLen, sStr)
sStr = CStr(sStr)
Do While Not Len(sStr) = iLen
sStr = "0" & sStr
Loop
AddLeadingZeros = sStr
End Function

you would call it like:

Dim sFormattedNumber
sFormattedNumber = AddLeadingZeros(5, CStr(numbertoformat))

note that the numbers become strings, and are no longer integers
[sig]<p>ray<br><a href=mailto:rheindl@bju.edu>rheindl@bju.edu</a><br><a href= > </a><br> [/sig]

 

[MichaelRed]

mako,

Frogger/ray's function is somewhat cumbersome for a simple display,

[tab]MyVal = 315
[tab]NumPad = 5

[tab]? Format(MyVal, String(NumPad, &quot;0&quot)
[tab]00315

is just done in the &quot;immediate&quot; window. Of course, you can ignore the NumPad thing and just put the &quot;5&quot; directly into the format statement and get the same results.

[sig]<p>MichaelRed<br><a href=mailto:mred@duvallgroup.com>mred@duvallgroup.com</a><br>There is never time to do it right but there is always time to do it over[/sig]

 

[NickBulka]

VBscript doesn't support the Format function (at least as of IIS4) [sig]<p>nick bulka<br><a href=mailto: > </a><br><a href=

http://www.bulka.com>

</a><br>Get your technical books at Bulka's Books<br>

http://www.vstorebooks.com/bulkasbooks

[/sig]

 

[MichaelRed]

hmmmm, Sorry about that. Seems like a useful and friendly way to help w/ display values. Anyway, still no need to jump through loop(s),

MyVal = 315
? Right(String(5, &quot;0&quot & Trim(Str(MyVal)), 5)
00315

unless what ever language mako is using (he will let us know - won't he?) doesn't support some part of this. [sig]<p>MichaelRed<br><a href=mailto:mred@duvallgroup.com>mred@duvallgroup.com</a><br>There is never time to do it right but there is always time to do it over[/sig]

 

[mako]

thanks for pointing out guys. i've tried both of your methods Michael. works like a charm.

- mako - [sig][/sig]