Next Informacioni sistem za elektronsko fakturisanje usluga u zdravstvenim ustanovama

Code:

Public Function ProveriLBO(strLbo As String) As Boolean
On Error GoTo Err_ProveriLBO
Dim i As Integer
Dim zbir As Integer
Dim cifra As Integer
Dim dodatak As Integer
zbir = 0

If (Len(strLbo) = 11) Then
    For i = 11 To 1 Step -1
        cifra = CInt(Mid(strLbo, i, 1))
        'Debug.Print cifra
        If (i Mod 2) = 0 Then
            If (cifra * 2) > 9 Then
                dodatak = (Round(cifra * 2 / 10, 0) + cifra * 2 Mod 10)
            Else
                dodatak = cifra * 2
            End If
        Else
            dodatak = cifra
        End If
        zbir = zbir + dodatak
        Debug.Print "cifra " & cifra & " dodatak " & dodatak & " zbir " & zbir
    Next i
    'Debug.Print zbir
    
    If (zbir Mod 10) = 0 Then
        ProveriLBO = True
    Else
        ProveriLBO = False
    End If
Else
    ProveriLBO = False
End If

Exit_ProveriLBO:
   On Error Resume Next
   Exit Function

Err_ProveriLBO:
   MsgBox Err.Number & " - " & Err.Description
   Resume Exit_ProveriLBO

End Function

Code:

Public Function LunovAlgoritam(cString As String) As Boolean
Dim nDuz As Integer
Dim ii As Integer
Dim cPom As String
Dim nPom As Integer
Dim nZbir As Integer
Dim nDesetice As Integer
Dim nJedinice As Integer
    nZbir = 0
    cString = Trim(cString)
    nDuz = Len(cString)
    ii = 1
    Do While ii <= nDuz
        cPom = Mid(cString, nDuz - ii + 1, 1)
        nPom = Val(cPom)
        If Int(ii / 2) = ii / 2 Then
            nPom = nPom * 2
            If nPom < 10 Then
                nZbir = nZbir + nPom
            Else
                nDesetice = Int(nPom / 10)
                nJedinice = nPom - nDesetice * 10
                nZbir = nZbir + nDesetice + nJedinice
            End If
        Else
            nZbir = nZbir + nPom
        End If
        ii = ii + 1
    Loop
    If Int(nZbir / 10) = nZbir / 10 Then
        LunovAlgoritam = True
    Else
        LunovAlgoritam = false
    End If
 End Function