sub integer {
    my $wert = shift ( @_ ) || 0;
    return 'FEHLER' if $wert =~ /e+?\d+$/;
    return 0 if $wert =~ /e-\d+$/;
    $wert=$1 if $wert =~ /^(.*?)\./;
    $wert=0 if !$wert or $wert == -0;
    return $wert;
}