use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Globals qw(rund);

sub acct_betrag($) {
	my ($num) = @_;
# $num =~ s/^\+//;
	$num = rund($num);
	$num = ("0" x (3-length $num)) . $num;
	$num =~ s/(\d\d)$/,$1/;
	1 while $num =~ s/(\d)(\d{3}[\,\.])/$1.$2/;
	no warnings 'uninitialized';
	$num =~ s/^(-)?,/${1}0,/;
	$num;
}
1;
