sub hochtag {
    $table->remove($hochlabel);
    my $hochzeit = date "2005-12-2 11:30:00"; my $date = now; 
    my $hh=""; my $mm=""; my $TT =""; my $HH =""; 
    my $MM =""; my $TTrest =""; my $TTrest1 =""; my $TTrest2 ="";
    my $ergebnis = $date - $hochzeit; my $ergebnisTT = $ergebnis / (86400); 
    $TT = int($ergebnisTT);
    my $TTT = $TT; $TTrest = ($TTT / 1000 - int($TTT / 1000))*1000;
    $TTT = int($TTT / 1000); if ($TTT >= 1) { $TTT ="$TTT."; }
    if ($TTT == 0) { $TTT =""; } if ($TTrest < 100) { $TTrest1 ="0"; }
    if ($TTrest < 10) { $TTrest2 ="0"; }
    my $ergebnisHH = ((($ergebnis / (86400)) - int($ergebnisTT)) * 24);
    $HH = int($ergebnisHH); if ($HH<10) { $hh="0"; }
    my $ergebnisMM = (((($ergebnis / (86400)) - $TT) * 24) - $HH)*60;
    $MM = int($ergebnisMM); if ($MM<10) { $mm="0"; }
    my $hochtag = ("$TTT$TTrest1$TTrest2$TTrest $hh$HH:$mm$MM");
    my $hochlabel2 = new Gtk2::Label();
    $hochlabel->set_markup ("<span font-family=\"URW Chancery L\" color=\"#FF0000\" font_desc=\"40\">$hochtag</span>");
    $table->attach_defaults($hochlabel, 0, 1, 0, 4);
    $hochlabel->show; 
}