Prikazi cijelu temu 19.10.2011 08:11
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Fiskalizacija u FBiH
Evo ubaci ovu funkciju:
PreuzmiIzvorni kôd (Text):
  1. Function Zaustavi(Trajanje)
  2.     Dim VRIJEME
  3.      
  4.     DoEvents
  5.      
  6.     Trajanje = Trajanje + Timer()
  7. Start:
  8.     VRIJEME = Timer()
  9.     If VRIJEME < Trajanje Then GoTo Start
  10.     End Function
Pozivaš je sa:
Zaustavi (5)
Ovo 5 je vrijeme trajanja
Miro