Сделал проверку ИИН, данный проверка и расшифровка для Казахстана - остальных стран не знаю есть ли у них ИИН. Расшифровка ИИН: Так, 12 цифр ИИН можно разбить на 4 части. Первые шесть цифр - это год и дата рождения. Во второй, что состоит из одной цифры, зашифрованы пол и век рождения. Так, 1 - для мужчин, родившихся в XIX веке, 2 - для женщин, родившихся в XIX веке, 3 - для мужчин, родившихся в ХХ веке, 4 - для женщин, родившихся в ХХ веке, 5 - для мужчин, родившихся в XXI веке, и 6 - для женщин, родившихся в XXI веке
Сделал проверку ИИН, данный проверка и расшифровка для Казахстана - остальных стран не знаю есть ли у них ИИН. Расшифровка ИИН: Так, 12 цифр ИИН можно разбить на 4 части. Первые шесть цифр - это год и дата рождения. Во второй, что состоит из одной цифры, зашифрованы пол и век рождения. Так, 1 - для мужчин, родившихся в XIX веке, 2 - для женщин, родившихся в XIX веке, 3 - для мужчин, родившихся в ХХ веке, 4 - для женщин, родившихся в ХХ веке, 5 - для мужчин, родившихся в XXI веке, и 6 - для женщин, родившихся в XXI векеABC
If Mid(x(i, 1), 7, 1) = 1 Or Mid(x(i, 1), 7, 1) = 2 Then k = "18" '19 век Else If Mid(x(i, 1), 7, 1) = 3 Or Mid(x(i, 1), 7, 1) = 4 Then k = "19" '20 век Else If Mid(x(i, 1), 7, 1) = 5 Or Mid(x(i, 1), 7, 1) = 6 Then k = "20" '21 век Else: k = ":)" ':) End If ' <-- это что такое? End If ' <-- это что такое? End If
[/vba]
ужасно. Кто писал код?
[vba]
Code
If Mid(x(i, 1), 7, 1) = 1 Or Mid(x(i, 1), 7, 1) = 2 Then k = "18" '19 век Else If Mid(x(i, 1), 7, 1) = 3 Or Mid(x(i, 1), 7, 1) = 4 Then k = "19" '20 век Else If Mid(x(i, 1), 7, 1) = 5 Or Mid(x(i, 1), 7, 1) = 6 Then k = "20" '21 век Else: k = ":)" ':) End If ' <-- это что такое? End If ' <-- это что такое? End If
почему сразу не программист? Получается, нормально, и как код переписать сообразил ) Хотя речь была не об этом, а о неправильно расставленных отступах. К примеру, если вам утром необходимо ехать на машине, вы же не прячете ключи вечером, так, чтобы не смогли их найти?) Здесь тоже самое )
Quote (ABC)
я не программист, писал на других примерах
почему сразу не программист? Получается, нормально, и как код переписать сообразил ) Хотя речь была не об этом, а о неправильно расставленных отступах. К примеру, если вам утром необходимо ехать на машине, вы же не прячете ключи вечером, так, чтобы не смогли их найти?) Здесь тоже самое )nerv
Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук
Даулет, мне кажется что проверка века не совсем корректна не может быть ИИН с номерами 00XXXX5... или 00ХХХ6... т.к. данные даты рождения относятся к 21 веку, соответственно 2100 год еще не наступил. На сколько помню, 2000 год - это 20 век, 2100 - это 21 век Это если дословно руководствоватся фразой:
Quote
Так, 1 - для мужчин, родившихся в XIX веке, 2 - для женщин, родившихся в XIX веке, 3 - для мужчин, родившихся в ХХ веке, 4 - для женщин, родившихся в ХХ веке, 5 - для мужчин, родившихся в XXI веке, и 6 - для женщин, родившихся в XXI веке
Даулет, мне кажется что проверка века не совсем корректна не может быть ИИН с номерами 00XXXX5... или 00ХХХ6... т.к. данные даты рождения относятся к 21 веку, соответственно 2100 год еще не наступил. На сколько помню, 2000 год - это 20 век, 2100 - это 21 век Это если дословно руководствоватся фразой:
Quote
Так, 1 - для мужчин, родившихся в XIX веке, 2 - для женщин, родившихся в XIX веке, 3 - для мужчин, родившихся в ХХ веке, 4 - для женщин, родившихся в ХХ веке, 5 - для мужчин, родившихся в XXI веке, и 6 - для женщин, родившихся в XXI веке
Ну да Михаил, я согласен с Вами, по викингу: так как нету 0 года выходить следующие 19 век - с 1 января 1801 года по 31 декабря 1900 года 20 век - с 1 января 1901 года по 31 декабря 2000 года 21 век - с 1 января 2001 года по 31 декабря 2100 года но наши задумшики ИИН'а как та подумали и сделали 2000 год это 21 век вот и ошибка:) :) (ошибка того кто придумал ИИН, считали 7 разряд на век делимым на год без остаток) хотя ошибка их что расшифровку делают по веку, а надо было по годам, нечего страшного кто то додумается сказать им, и поменяют век на с ... до ... годов. но я проверяю ИИН'ы на работе все правильно ------------------------ зря надо была 7 разряд для 1,2 - с 1800 до 1900 г.г. а не 19 век для 3,4 - с 1900 до 2000 г.г. а не 20 век для 5,6 - с 2000 до 2100 г.г. а не 21 век
Ну да Михаил, я согласен с Вами, по викингу: так как нету 0 года выходить следующие 19 век - с 1 января 1801 года по 31 декабря 1900 года 20 век - с 1 января 1901 года по 31 декабря 2000 года 21 век - с 1 января 2001 года по 31 декабря 2100 года но наши задумшики ИИН'а как та подумали и сделали 2000 год это 21 век вот и ошибка:) :) (ошибка того кто придумал ИИН, считали 7 разряд на век делимым на год без остаток) хотя ошибка их что расшифровку делают по веку, а надо было по годам, нечего страшного кто то додумается сказать им, и поменяют век на с ... до ... годов. но я проверяю ИИН'ы на работе все правильно ------------------------ зря надо была 7 разряд для 1,2 - с 1800 до 1900 г.г. а не 19 век для 3,4 - с 1900 до 2000 г.г. а не 20 век для 5,6 - с 2000 до 2100 г.г. а не 21 век ABC
MS Excel 2007 and 2010... ------------------------------- С Уважением, Даулет
Сообщение отредактировал ABC - Вторник, 31.07.2012, 10:43
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Получается, нормально, и как код переписать сообразил ) Хотя речь была не об этом, а о неправильно расставленных отступах. К примеру, если вам утром необходимо ехать на машине, вы же не прячете ключи вечером, так, чтобы не смогли их найти?) Здесь тоже самое )
