$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);
}