Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Расчет контрольного разряда для МФО Украинских банков  [new]
FM32YO aka KID
Member

Откуда: Ukraine
Сообщений: 884
Обещал выложить по просьбе коллеги, вот функция:

* Name: TESTMFO
* Example: =TESTMFO(MFO)
* ..........................................................................

PARAMETER NMFO_6

cStr = STR(NMFO_6, 6)

if val(cStr) == 0
return .f.
endif

IF "0" == SUBSTR(STR(VAL(SUBSTR(cStr, 1, 1)) + VAL(SUBSTR(STR(VAL(;
SUBSTR(cStr, 2, 1)) * 3, 2), 2, 1)) + VAL(SUBSTR(STR(VAL(SUBSTR(;
cStr, 3, 1)) * 7, 2), 2, 1)) + VAL(SUBSTR(cStr, 4, 1)) + VAL(;
SUBSTR(STR(VAL(SUBSTR(cStr, 5, 1)) * 3, 2), 2, 1)) + VAL(SUBSTR(;
STR(VAL(SUBSTR(cStr, 6, 1)) * 7, 2), 2, 1)), 2), 2, 1)

* wait window " MFO OK"
else
=MESSAGEBOX("М Ф О "+STR(NMFO_6)+chr(13)+" НЕ ІСНУЄ ",48+0+0,"У В А Г А !!!")

ENDIF
6 апр 04, 21:42    [615589]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить