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