als erstes würde ich bei

Portd.X = 1
' Waitms 0.5
Portd.X = 0

Waitms 1 einfügen, damit das Latch auch die Daten richtig übernehmen kann, dann würde ich bei jeder Änderung der Stunde mit Print mir die aktuellen Werte anzeigen lassen, dazu sollte die Uhr natürlich etwas schneller laufen.