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