Formatting a number

[demoniac]

Hello, I have a number and I need to format it to the cobol number format... Like this :

before : 59.80
after : 000005980

Getting rid of the decimal is easy, just multiply by a hundred. But I can't make the leading 0's get in there. Can someone help me?

Thanks,
demoniac

 

[woyler]

Are you storing your result in a variable? If so you may have to make the variable a string so that it will hold the leading zeros and if necessary, convert it back for calculation purposes.

 

[jjames]

lngNumber = 59.80 * 100

strCobolNum = Format$(lngNumber, "000000000&quot

 

[johnwm]

Try Format(number*100,"000000000&quot where number contains the figure to be converted. You can print this directly or set a variable, as Format returns a variable of type Variant.

 

[demoniac]

Awesome, thanks everybody.