Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Public Function fnCZtoLAT(Naziv As String) As String
'******************************************************
'Autor:zxz
'datum: 19.01.2021
'mijenja karaktere iz str1 u adekvatne po poziciji u str2
'u string kao ulazni parametar Naziv
'********************************************************
Const str1 = "IÅ EOŽÝÁÍÉÚUiÅ¡eožýáíéúua "
Const str2 = "ESCRZYAIEUUescrzyaieuucu"
Dim duz As Integer, i As Integer, poz As Integer, n As Integer
Dim car1 As String * 1, car2 As String * 1, str As String
duz = Len(str1)
str = Naziv
n = 1
For i = 1 To duz
car1 = Mid(str1, i, 1)
car2 = Mid(