Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function PrvaVelika(Str As String) '********************************* 'Ime: PrvaVelika (Function) 'Sadrzaj:Procedura vraca prvo 'veliko slovo svake rijeci. 'Autor: zxz 'Datum: 04.03.2015, 02:07:43 'Adresa: Tuzla BiH 'EMail: zxz@icentar.ba 'www: icentar.ba 'Ulazni parametri:neka recenica 'Izlazni parametri:recenica '********************************* Dim Poz As Integer Dim Temp(1) As String On Error Resume Next Str = Str & " " Poz = 1 Start: Poz = InStr(Poz, Str, " ") If Poz = 0 Then GoTo Kraj Temp(0) = Mid(Str, Val(Len(Temp(1))) + 1, Poz - Val(Len(Temp(1))))