sub kfmrunden {
	my $dInput = shift ( @_ ) || 0;
	my $iStelle = shift ( @_ ) || 0;
	my $dErg = &integer( $dInput * (10**$iStelle) + 0.5 ) / ( 10**$iStelle);
	return $dErg;
}
sub integer {
	my $wert = shift ( @_ ) || 0;
	if ($wert =~ /\./) {
		my $neu = '';
		for (my $st = 0; $st < length($wert); $st ++) {
			if (substr($wert,$st,1) eq '.') { last; }
			else { $neu .= substr($wert,$st,1); }
		}
		$neu = 0 if $neu eq '';
		$wert = $neu;
	}
	return $wert;
}