How do I format a number such as 43.46 to display as .4346?

Chris

Hi,

  This is funny.


dim num,intdigits,divdigits,divisor,result,totchar
num=window.prompt("Enter number")
totchar=len(num)
intdigits=instr(num,".")
if intdigits>0 then
    divdigits=intdigits-1
    totchar=totchar-1
elseif intdigits=0 then
    divdigits=totchar
end if

for j=1 to divdigits
    divisor=divisor & "0"
next
divisor="1" & divisor

num=csng(num)
divisor=clng(divisor)
result=formatnumber((num/divisor),totchar)
alert num & " = " & result



ha ha ha

---------
Rajani

hahah, That was also an example of how to do things round about.

This is how easily you can do that in one line code. Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

Thanks Vijay!

How can that be used with an unknown string? The selection from a form will determine what the number that appears in the formatnumber function will be.

When getting info from a database, would the function work something like so:

Dim strNbr
strNbr = FormatNumber(objRS("number")/100,4,0)

I see what's happening now. Didn't quite understand at first, but after looking at it a little longer, I see it now. Works like a charm! Thanks again!

Chris