WINDEV PROCEDURE Cle RIB 2021

PROCEDURE CleRIB(Compte is string)

nResulta is 8byte int
sRib is string
sComptes is string = NoCharacter(Compte,"-",sscInside)

nResulta = Val(Middle(sComptes,4,15)) * 100
nResulta = modulo(nResulta,97)
nResulta = 97 - nResulta
sRib = NumToString(nResulta,"02d")

RESULT sRib