my $wert = shift (@_) || 0;
my $stellen = shift (@_) || 0;
my $vorzeichen = '';
my $vorkomma = 0;
my $nachkomma = '';
if ($stellen >= 0 && $stellen <= 9 && !($wert =~ /[^+-\.0-9]/)) {
        if (substr ($wert,0,1) eq '-' || substr ($wert,0,1) eq '+') {
                $vorzeichen = '-' if substr ($wert,0,1) eq '-';
                $wert = substr ($wert,1);
        }
        ($vorkomma,$nachkomma) = split /\./,$wert;
        $vorkomma = 0 unless $vorkomma;
        $nachkomma = '' unless $nachkomma;
        if (length ($nachkomma) > $stellen) {
                my $auf = (substr ($nachkomma,$stellen,1) > 4 ? 1 : 0);
                if (!$stellen) {
                        $vorkomma ++ if $auf;
                        $nachkomma = '';
                }
                else {
                        if ($auf) {
                                if (substr ($nachkomma,0,$stellen) eq '9' x $stellen) {
                                        $vorkomma ++;
                                        $nachkomma = '';
                                }
                                else {
                                        my ($count) = $nachkomma =~ m!^(0*)!;
                                        my $vornull = length $count;
                                        $vornull -- if substr ($nachkomma,0,$stellen) eq '0' x $stellen;
                                        my $temp = substr ($nachkomma,0,$stellen) + 1;
                                        $nachkomma = ($vornull ? '0' x $vornull : '') . $temp;
                                }
                        }
                        else {
                                $nachkomma = substr ($nachkomma,0,$stellen);
                        }
                }
        }
}
$vorkomma =~ s/^0+([^0])/$1/;
$nachkomma =~ s/0+$//;
return ("$vorkomma.$nachkomma" / 1 ? $vorzeichen : '') . "$vorkomma" . ($nachkomma ne '' && substr ($nachkomma,0,$stellen) ne '0' x $stellen ? ".$nachkomma" : '');