sub kfmrunden {
	#
	# Aufruf:
	# =======
	# my $gerundet = &kfmrunden([wert],[stellen]);
	# [wert]		= Nur nummerische Werte! Keine Extremwerte wie z.B. 1e+100 oder 4.24306121591708e-007! Kein Komma, kein Tausenderpunkt etc.
	# [stellen]		= Anzahl gewünschte Nachkommastellen, zwischen 0 und 9 zulässig
	#
	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) {
					my $vornull = 0;
					for (my $z = 0; $z < $stellen; $z ++) {
						last if substr ($nachkomma,$z,1) ne '0';
						$vornull ++;
					}
					if (substr ($nachkomma,0,$stellen) eq '9' x $stellen) {
						$vorkomma ++;
						$nachkomma = '';
					}
					else {
						$vornull -- if substr ($nachkomma,$stellen - 1,1) eq '0';
						my $temp = substr ($nachkomma,0,$stellen) + 1;
						$nachkomma = ($vornull ? '0' x $vornull : '') . $temp;
					}
				}
				else {
					$nachkomma = substr ($nachkomma,0,$stellen);
				}
			}
		}
	}
	return ("$vorkomma.$nachkomma" / 1 ? $vorzeichen : '') . "$vorkomma" . ($nachkomma ne '' && substr ($nachkomma,0,$stellen) ne '0' x $stellen ? ".$nachkomma" : '');
}