Uz pomoć OnTime metode koristim formu kao datumar-časovnik. Postavljeno je da se ažuriranje LBL za vreme vrši na 1 minut. I to tako radi. Međutim, tek kad mi je forma bila otvorena duže od 1 sata shvatio sam da u stvari "sat laže", tj. kad dođe do npr. 17:59, posle jedne minute ne prikaže - 18:00, već 17:00. Znači, ne ažurira i sate, već samo minute. Evo procedure:
Public Sub StartTimer()
RunWhen = Now + TimeValue("00:01:00") ' interval ažuriranja labele 1,(2,3..) sek - minute
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
End Sub
Ako u TimeValue stavim "01:01:00", onda ne "otkucava" minute, već do isteka jednog sata stoji nepromenjeno vreme. Na forumu ima dosta primera za VB-6, ali za VBA nisam uspeo da nađem. Čak ni na "Ozgridovom" sajtu. Hvala unapred.
Public Sub StartTimer()
RunWhen = Now + TimeValue("00:01:00") ' interval ažuriranja labele 1,(2,3..) sek - minute
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
End Sub
Ako u TimeValue stavim "01:01:00", onda ne "otkucava" minute, već do isteka jednog sata stoji nepromenjeno vreme. Na forumu ima dosta primera za VB-6, ali za VBA nisam uspeo da nađem. Čak ni na "Ozgridovom" sajtu. Hvala unapred.