Need help... should be simple

fpendino

Registered User.

Local time

Today, 02:51

Joined

Jun 6, 2001

Messages

73

• Aug 28, 2003

• #1

How do you set a value or integer to return a certain amount of characters. Please refer to the example where I am asking to place zeros so that the value is still 4 numbers long.

0005
0025
0035
0100
0001


?expression(txtbox)

 

Treason

#@$%#!

Local time

Today, 03:51

Joined

Mar 12, 2002

Messages

340

• Aug 28, 2003

• #2

this is how i do it... atleast this will get you in the right direction

Dim NumX as String

if Len(NumX) = 3 then
NumX = "0" & CStr(NumX)
end if

if Len(NumX) = 2 then
NumX = "00" & CStr(NumX)
end if

if Len(NumX) = 1 then
NumX = "000" & CStr(NumX)
end if


It works for me...

 

fpendino

Registered User.

Local time

Today, 02:51

Joined

Jun 6, 2001

Messages

73

• Aug 28, 2003

• #3

That will work.. Thanks!!

 

Mile-O

Back once again...

Local time

Today, 08:51

Joined

Dec 10, 2002

Messages

11,316

• Aug 28, 2003

• #4

If you need it as a string then, simply:


strX = CStr(Format(yourValue, "0000"))

 

Treason

#@$%#!

Local time

Today, 03:51

Joined

Mar 12, 2002

Messages

340

• Aug 28, 2003

• #5

i've been upstaged by mile-o-phile once again!

 

N

namliam

The Mailman - AWF VIP

Local time

Today, 09:51

Joined

Aug 11, 2003

Messages

11,695

• Aug 29, 2003

• #6

MIle,

Why the cstr(format()) and not just format()??

Format returns a string right??

Regards

 

Mile-O

Back once again...

Local time

Today, 08:51

Joined

Dec 10, 2002

Messages

11,316

• Aug 29, 2003

• #7

True!

I probably just had CStr() in my head as I saw it in Treason's solution.

 

Treason

#@$%#!

Local time

Today, 03:51

Joined

Mar 12, 2002

Messages

340

• Aug 30, 2003

• #8

Cstr function changes the value to a string...
Cint function changes to an integer etc...

So without the Cstr i would think the formatting wouldn't stick. B/c an integer (probaly) can have the leading zeros.