Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Ha ha glupava greska vo kucajneto eve ispravno
PreuzmiIzvorni kd (Visual Basic):Public Function GT(Podatok, Optional DelBroj As Integer = 1)
Dim RedPod As String
Dim BrojVar As Integer
Dim ArrPodaci
Dim Arr() As String
Dim I As Integer
If IsNull(Podatok) Or Podatok = "" Then
GT = " "
' Exit Function
Else
RedPod = Podatok ' "+CRLP: 61,61,78,6"
Vrati_Podatak RedPod, BrojVar, ArrPodaci
Arr = Split(ArrPodaci, ",")
'For I = 0 To BrojVar
GT = Arr(DelBroj)
'Next I
End If
End Function