sub zeitdiff {
	# Errechnet zwischen zwei Uhrzeiten im Format HHMM (zwingend vierstellig!) die Differenz in Minuten
	my $kommen = $_[0];
	my $gehen = $_[1];
	my $min = 0;
	if ($kommen != $gehen) {
		my $komm_min = substr ($kommen,-2) + 0;
		$min = (substr ($gehen,0,2) - substr ($kommen,0,2) - ($komm_min ? 1 : 0)) * 60 + substr ($gehen,-2) + ($komm_min ? 60 - $komm_min : 0);
	}
	return $min;
}