# Zahlen der Form 12345 bzw. 77.9 in für Vergleich notwendige Schreibweise 12345.00 bzw. 77.90 umwandeln
sub toVolleZahl
{
	my $wert = $_[0];
	# ALLE " " (Leerzeichen) entfernen
	$wert =~ s/\s//g;
	# falls in der Form: (beliebig viele Zahlen von 0-9).(zwei Zahlen von 0-9) --> bereits richtig
	if ($wert =~ /\d*\.\d\d/)
	{
		return $wert;
	}
	# falls $wert gleich: (beliebig viele Zahlen von 0-9) kein Punkt
	elsif ($wert =~ /\d+^\./)
	{
		$wert .= ".00";
		return $wert;
	}
	# falls $wert gleich: (beliebig viele Zahlen von 0-9).(eine Zahl von 0-9)
	elsif ($wert =~ /\d+\.\d/)
	{
		$wert .= "0";
		return $wert;
	}
}