<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function NadjiDio(Str As String, Znak As String, Dio As Integer)
'******************************************************
'Ime:      NadjiDio   (Function)
'Sadržaj: Dio izmedju dva poznata karaktera
'Autor:     ZXZ
'Datum:      svibanj 16, 2008, 12:34:16
'Adresa: Tuzla BiH
'Email:     izonic@inet.ba
'Ulazni parametri:Str-String
                  'Znak-Karakter razdvajac
                  'Dio-Broj dijela izmedju razdvajaca
'Izlazni parametri:
'******************************************************
Dim DuzinaStr As Integer
Dim Polozaj As Integer
Dim I As Integer
Dim Brojac As Integer
Dim Karakter As String
 
 
 
DuzinaStr = Len(Str)
If Left(Str, 1) <> Znak Then
   Str = Znak & Str
End If
If Right(Str, 1) <> Znak Then
   Str = Str & Znak
End If
For I = 1 To DuzinaStr
Karakter = Mid(Str, I, 1)
    If Karakter = Znak Then
    Brojac = Brojac + 1
    End If
    If Brojac = Dio T