projekt kivitendo

        $amount =~ s/\d{3,}?/$&,/g;

        $amount =~ s/,$//;

        $amount = join '', reverse split //, $amount;

      }

      if ($myconfig->{numberformat} eq '1.000,00') {

        $amount =~ s/\d{3,}?/$&./g;

        $amount =~ s/\.$//;

        $amount = join '', reverse split //, $amount;

      }

      if ($myconfig->{numberformat} eq '1000,00') {

        $amount = "$whole";

      }

      if ($dash =~ /-/) {

  # Descr. http://de.wikipedia.org/wiki/Rundung

  # Inspired by 

  # http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.13.html

  # Udo Spallek

  $amount       = $amount * (10 ** ($places));

  $round_amount = int($amount + .5 * ($amount <=> 0))/(10**($places));

  $main::lxdebug->leave_sub();

  return $round_amount;

}