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