[ neptuncokg @ 11.07.2010. 17:27 ] @
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.
[ timmy @ 11.07.2010. 23:54 ] @
Nije mi jasno zasto pises

Code:

frmSAT.lblVreme.Caption = Left((frmSAT.lblVreme.Caption), 3) & Right(Format(Now, "HH:MM"), 2)


jer time preuzmes staro stanje sati i "nalepis" novo stanje minuta!!! A ti bi hteo aktuelno vreme???

zar nije dovoljno

Code:

frmSAT.lblVreme.Caption = Format(Now, "HH:MM:SS")


ili bez :SS ako neces sekunde...

Pozdrav
[ neptuncokg @ 12.07.2010. 00:27 ] @
Sad i ja vidim da je dovoljno! Valjda sam onu proceduru sa "Left & Right" preuzeo iz jedne "štoperice", gde je tako moralo da bude, i prevideo činjenicu da je ovo "SAT".
Sad je sve O.K. Puno hvala i veliki pozdrav!