sub kfmrunden { # # Aufruf: # ======= # my $gerundet = &kfmrunden ([wert],[stellen]); # [wert] = Nur nummerische Werte! Kein Komma, kein Tausenderpunkt etc. # [stellen] = Anzahl gewünschte Nachkommastellen, Werte >= 0 zulässig # my $num = shift (@_) || 0; my $stellen = shift (@_) || 0; return int ($num * (10 ** $stellen) + ($num < 0 ? -0.5 : 0.5) ) / 10 ** $stellen; }