Kaufmännisch korrekt runden (gelöst) - #129233 (Allgemeines zu Perl)

2009-12-11 18:46

User since
2003-08-04
12209 Artikel
Admin1

wieso multiplizierst du eigentlich nicht vor dem runden mit 10 ^ stellenanzahl, rundest dann und teilst dann wieder?
also

Code (perl): (dl )

my $rounded = int( $num * (10 ** $stellen) + 0.5 ) / 10 ** $stellen;

(müsste für negative zahlen noch angepasst werden)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem