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):Function Trajanje()
'*******************************************************
'Ime: Trajanje (Function)
'Sadrzaj:Vremenski raspon izmedju dva poziva
'Autor: zxz
'Datum: 20.08.2014, 11:57:48
'Adresa: Tuzla BiH
'EMail: zxz@icentar.ba
'www: icentar.ba
'Ulazni parametri:Nema
'Izlazni parametri: Vrijeme
'******************************************************
Static Pocetak As Single
Dim Kraj As Single
Dim Razlika As Single
If Pocetak = 0 Then
Pocetak = Time
Else
Razlika = Time - Pocetak
Trajanje = Format(Razlika, "HH:NN:SS")
Pocetak = 0
End If
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.