$endwert = &runden($ertragswert3,"5000");

sub runden {
        my $aufrundenab = $_[1] / 2;
        my $zahl = $_[0];
        
        my $rest = $zahl % $_[1];
        if ($rest < $aufrundenab) {
                $zahl -= $rest;
        } else { 
                $zahl += ($_[1] - $rest);
        }
        return($zahl);
}