Napravite 3 labela , 1 timer (Interval 100)
Kod za vreme:
Label1.Caption = Hour(Now) 'za prikazivanje tacnog broja sati
Label2.Caption = Minute(Now) 'za minute
Label3.Caption = Second(now) 'Za sekunde
Kod za datum :
Label1.Caption = Year(Now) 'za prikazivanje godine
Label2.Caption = Date(Now) 'za datum (Odnosno Dan)
Label3.Caption = Month(Now) ' za mesec