Finally I want to let you know that even

$u = sprintf "%.2f", (int(0.5+($u*$p*100))/100);
[download]

Carl

Try this:

print int(0.500000000000001+($u*$p*100))/100;
[download]

---

Examine what is said, not who speaks.

"But you should never overestimate the ingenuity of the sceptics to come up with a counter-argument." -Myles Allen
"Think for yourself!" - Abigail        "Time is a poor substitute for thought"--theorbtwo         "Efficiency is intelligent laziness." -David Dunham
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

Nope,

that doesn't give correct results!

The problem is NOT within int(..) (I tried 0.501..)
the result of int is correct 12400, but if you devide this
(try only10!) you will get 123.99:

  $cent = int(0.5 + ($u*$p*100); # => 12400, ok
#but
  $dollar = $cent / 100; # => 123.99
# even if you use sprintf (which itself does 
#  NOT round financially, you have to it yourself!
  $dollar = sprintf ".2f", $cent/100; # => 123.99 Dollar
[download]

Hmm

Carl