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