Prikazi cijelu temu 20.08.2014 11:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Vrijem izmedju dva poziva
Ova procedura mjeri vrijeme izmedju dva njena poziva.
Ako je pozovemo na pocetku neke procedure i ponovo na kraju mozemo dobiti vrijeme trajanje te procedure.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Trajanje()
  2. '*******************************************************
  3. 'Ime:      Trajanje (Function)
  4. 'Sadrzaj:Vremenski raspon izmedju dva poziva
  5. 'Autor: zxz
  6. 'Datum: 20.08.2014, 11:57:48
  7. 'Adresa: Tuzla BiH
  8. 'EMail: zxz@icentar.ba
  9. 'www: icentar.ba
  10. 'Ulazni parametri:Nema
  11. 'Izlazni parametri: Vrijeme
  12. '******************************************************
  13.  
  14. Static Pocetak As Single
  15. Dim Kraj As Single
  16. Dim Razlika As Single
  17.  
  18.  
  19. If Pocetak = 0 Then
  20. Pocetak = Time
  21. Else
  22. Razlika = Time - Pocetak
  23. Trajanje = Format(Razlika, "HH:NN:SS")
  24. Pocetak = 0
  25. End If
  26. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.