Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Forma kao časovnik

[es] :: Office :: Excel :: Forma kao časovnik

[ Pregleda: 2418 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*



+9 Profil

icon Forma kao časovnik11.07.2010. u 17:27 - pre 166 meseci
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.
Prikačeni fajlovi
 
Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net


+89 Profil

icon Re: Forma kao časovnik11.07.2010. u 23:54 - pre 166 meseci
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
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*



+9 Profil

icon Re: Forma kao časovnik12.07.2010. u 00:27 - pre 166 meseci
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!
 
Odgovor na temu

[es] :: Office :: Excel :: Forma kao časovnik

[ Pregleda: 2418 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.