sub integer1 {
	my $wert = shift ( @_ ) || 0;
	if ($wert =~ /^([^\.]*)\.([^\.]+)$/) {
		$wert = $1;
	}
	return $wert + 0;
}