sub zeit_zu_minuten ($) {
# -----------------------------------------------------------------------------
# sub          : z e i t _ z u _ m i n u t e n
# -----------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : Macht aus einer Zeit der Form 9:30 Minuten seit Mitternacht.
# Parameter    : Zeit
# Rückgabewert : Anzahl Minuten
# -----------------------------------------------------------------------------
# 0.0.1 - 15.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------

    my ($h, $m) = split(/:/, $_[0], 2);
    return 0 unless defined($h) and defined($m);
    return 60*$h + $m;
} # sub zeit_zu_minuten


sub min_zu_hmin ($) {
# -----------------------------------------------------------------------------
# sub          : m i n _ z u _ h m i n
# -----------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : Wandelt Minuten in Stunden:Minuten (150 -> 2:30)
# Parameter    : Minuten
# Rückgabewert : Stunden:Minuten
# -----------------------------------------------------------------------------
# 0.0.1 - 15.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------

    my $min  =  $_[0];
    my $vorz =  ($min<0?"-":"");
    $min     *= -1 if $min < 0;
    my $h    =  int($min/60);
    my $m    =  $min - $h*60;
    my $r    =  "$vorz$h:" . ($m<10?"0":"") . "$m";
    return $r;
} # sub min_zu_hmin