Discuss "convert problem" in the ASP Development forum.

todd2006 · #1 June 26th, 2008, 11:39 PM

Hi,

I have this variable called strwt it can hold numbers and decimal values

IF it holds decimal values like this

strwt="134.3"

then i want the value in strwt to be

strwt="134"

But if the decimal value is .6 or .5 then i want the variable to hold

strwt="135"

But if the strwt value is 132 or the whole number then i want it to stay as it is

can someone tell me how i can do this.

Todd

richyrich · #2 June 27th, 2008, 04:08 AM

I tried using round(strwt) but that seemed to ruond down any .5, so I came up with this little function.

Code:

function round_no(no)
if instr(cstr(no),".")=0 then
     round_no = no
else
     Dim arr_no, dec_no
     arr_no = split(cstr(no),".")
     dec_no = arr_no(ubound(arr_no))
     if dec_no <=4 then
           round_no = fix(no)
     else
           round_no = fix(no)+1
     end if
end if
 
end function

Then to call it, just use:-

Code:

round_no(strwt)

I would have thought they'd be a built in function for this, but I couldn't find it.

Hope that helps.

jmurrayhead · #3 June 27th, 2008, 07:35 AM

@RR - the Round() function allows you to specify how many decimal places to round off to.

The syntax is: Round(Number, NumDecimalPlaces)

The second argument is optiononal.

Just FYI...

richyrich · #4 June 27th, 2008, 07:44 AM

Quote:

Originally Posted by jmurrayhead

@RR - the Round() function allows you to specify how many decimal places to round off to.

The syntax is: Round(Number, NumDecimalPlaces)

The second argument is optiononal.

Just FYI...

Yeah, I know. It's just that he wanted it to zero decimal places so I left it off.

Any idea why it rounds .5 down rather than up?

jmurrayhead · #5 June 27th, 2008, 07:53 AM

Quote:

Originally Posted by richyrich

Yeah, I know. It's just that he wanted it to zero decimal places so I left it off.

Any idea why it rounds .5 down rather than up?

Not sure...basic math says anything that is 5 or more you round up. Found this, however with a more simple rounding function: How do I round a number *properly* with VBScript?

Code:

    Function roundit(number,decPoints)  
        decPoints = 10^decPoints  
        roundit = round(number*decPoints+0.1)/decPoints 
    End Function

Wolffy · #6 June 27th, 2008, 03:47 PM

It appears that round() conforms to the ISO Standard in that x.5 rounds to an even number.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Discuss "convert problem" in the ASP Development forum.

ASP Development - Learn coding practices and tips to get the best out of your Active Server Pages (ASP). The Classic ASP forum is for ASP/VBScript and ASP/JScript applications.