Function DioStr(Dio As Integer, Str As String, Karakter As String) As String

Dim Pozicija1, Pozicija2, Brojac

On Error GoTo Greska:

Pozicija2 = 1

If Right(Str, 1) <> Karakter Then 'Ako je desni karakter razlicit tada

Str = Trim(Str) & Karakter 'Dodaj karakter na kraj

End If 'Kraj uslova

 

For Brojac = 1 To Dio

Pozicija1 = InStr(Pozicija2, Str, Karakter, 1)

If Brojac < Dio Then

Pozicija2 = Pozicija1 + 1

If Pozicija1 = 0 Then GoTo Upozorenje

End If

Next Brojac

DioStr = Mid(Str, Pozicija2, Pozicija1 - Pozicija2)

Exit Function

Greska:

If Err.Number = 5 Then

Upozorenje:

Beep

MsgBox "Áàðàâòå äåë êî¼ íå ïîñòîè!!!!", vbCritical + vbOKOnly + _

        vbDefaultButton1, "Íàïîìåíà!!!"

MsgBox "Greska Br: " & Err.Number, vbCritical + vbOKOnly + _

        vbDefaultButton1, "Napomena!!!"

End If

End Function

 

Function GetNumbers(Value As String) As String

Dim Index As Long

Dim Final As String

 

  For Index = 1 To Len(Value)

    If Mid(Value, Index, 1) Like "[0-9]" Then

      Final = Final & Mid(Value, Index, 1)

    End If

  Next

 

  GetNumbers = Final

End Function