sub integer {
    my $wert = shift ( @_ ) || 0;
    if ($wert =~ /e\-\d+$/) { return 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;
        $wert = 0 if $wert == -0;
    }
    return $wert;
}