![]() |
|
Алгоритам за Проверка на Точноста на Внесениот ЕМБ |
Внеси реплика ![]() |
Автор | |
kuper ![]() Нов член ![]() Регистриран: 24.Декември.2008 Статус: Офлајн Поени: 2 |
![]() ![]() ![]() ![]() ![]() Испратена: 10.Декември.2011 во 21:09 |
Еве ти целосна функција за валидација на ЕМБ, се надевам дека ќе ти помогне:
Public Function ValidateEMB(ByVal emb As String) As Boolean If Len(emb) <> 13 Then GoTo eX Dim a, B, c, d, e, f As Integer Dim g, h, I, j, k, l As Integer Dim ch As Integer a = Val(Mid(emb, 1, 1)) B = Val(Mid(emb, 2, 1)) c = Val(Mid(emb, 3, 1)) d = Val(Mid(emb, 4, 1)) e = Val(Mid(emb, 5, 1)) f = Val(Mid(emb, 6, 1)) g = Val(Mid(emb, 7, 1)) h = Val(Mid(emb, 8, 1)) I = Val(Mid(emb, 9, 1)) j = Val(Mid(emb, 10, 1)) k = Val(Mid(emb, 11, 1)) l = Val(Mid(emb, 12, 1)) ch = Val(Mid(emb, 13, 1)) Dim RES As Integer RES = 11 - ((a + g) * 7 + (B + h) * 6 + (c + I) * 5 + (d + j) * 4 + (e + k) * 3 + (f + l) * 2) Mod 11 If RES = 11 Then RES = 0 If RES = ch Then ValidateEMB = True Else ValidateEMB = False End If Exit Function eX: ValidateEMB = False End Function |
|
![]() |
|
and_2009 ![]() Нов член ![]() Регистриран: 27.Февруари.2010 Статус: Офлајн Поени: 2 |
![]() ![]() ![]() ![]() ![]() |
Дали можеби некој има алгориатм или упатство за проверка на точноста на внесениот ЕМБГ? Имам изработено софтвер во Visual Basic 6
|
|
![]() |
Внеси реплика ![]() |
|
Tweet
|
Скок до | Овластувања ![]() Вие не може да внесувате нови теми на форумот Вие не може да одговарате на теми на форумот Вие не може да ги бришете вашите пораки од форумот Вие не може да ги менувате вашите пораки од форумот Вие не може да креирате анкета на форумот Вие не може да гласате на форумот |