Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Из набора цифр составить дату рождения
 
#1
05.12.2020 15:40:58
( 39312241249)(46609231238)  Первая цифра кода обозначает пол: 3 - мужчина, 4 - женщина ,2 и 3 цифры показывают последние две цифры года рождения,4 и 5 - месяц рождения,6 и 7 - день рождения - это исходные данные  , какую формулу применить ,чтобы   в отдельную графу  попали цифры 3,4 ( мужчина, женщина ) и в другую графу  дата рождения
Спасибо.
 
 
 
#2
05.12.2020 15:46:48
ПСТР в помощь
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#3
05.12.2020 16:32:51
Спасибо. Но требуется использовать функцию, Дата , при дате рождения,
 
 
 
#4
05.12.2020 16:41:25
IRINA SAVITSKAJA, вы не поняли
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#5
05.12.2020 17:15:34
Цитата
IRINA SAVITSKAJA написал:
Дата , при дате рождения,
В А1 это странное число; первая формула возвращает Дату; вторая первый знак в ячейке.
Код
=ДАТА(ПСТР(A1;2;2);ПСТР(A1;4;2);ПСТР(A1;6;2))
=ПСТР(A1;1;1)
 
 
 
#6
05.12.2020 17:16:25
Цитата
buchlotnik написал:
ПСТР в помощь
ну почему ж только оно
=LEFT(a1)
и
=RIGHT(LEFT(a1;7);6)
или
=REPLACE(LEFT(a1;7);1;1;)
:D
По вопросам из тем форума, личку не читаю.
 
 
 
#7
05.12.2020 19:36:22
Это литовский личный код (asmens kodas) и для него у меня есть такая формула
Код
=CONCATENATE(LOOKUP(--LEFT(A2;1);{1;3;5};{1800;1900;2000})+MID(A2;2;2);".";MID(A2;4;2);".";MID(A2;6;2))
 
 
 
#8
05.12.2020 20:14:31
jakim, ну тогда уж до  даты
=--TEXT(LOOKUP(--LEFT(A2);{1;3;5};{18;19;20})&MID(A2;2;6);"0-00-00")
а если текст то
=TEXT(LOOKUP(--LEFT(A2);{1;3;5};{18;19;20})&MID(A2;2;6);"0\.00\.00")
По вопросам из тем форума, личку не читаю.
 
 
 
#9
06.12.2020 14:37:27
Здравствуйте, Михаил! Не изучил я еще функцию LOOKUP. :)

=--ТЕКСТ(ЦЕЛОЕ((35+ЛЕВБ(A2))/2)*10^6+ПСТР(A2;2;6);"0-00-00")
Изменено: sokol92 - 06.12.2020 14:55:12
Владимир
 
 
 
#10
06.12.2020 17:23:42
sokol92, привет. Ну математику еще никто не отменял. На этот раз она не только короче, но и быстрее, хотя уменбшим еще , в ущерб незначительны для производительности :-)
=--TEXT(LOOKUP(--LEFT(A2),{1;3;5},{18;19;20})&MID(A2,2,6),"0-00-00")   7,605469
=--TEXT(INT((35+LEFT(A2))/2)*10^6+MID(A2,2,6),"0-00-00")               7,507813
=--TEXT(INT((35+LEFT(A2))/2)&MID(A2,2,6),"0-00-00")      7,605469
По вопросам из тем форума, личку не читаю.
 
 
 
#11
06.12.2020 17:46:17
Цитата
jakim написал:
Это литовский личный код
- так разве не ввели уже новые коды, которые не выдают личные данные пользователя?
У нас ввели, каждый может свой код поменять, и соотв. любая такая формула на выходе даст непрогнозируемый мусор...
Ну а первая цифра это вообще нынче нонсенс  :)
Изменено: Hugo - 06.12.2020 17:48:01
 
 
 
#12
06.12.2020 17:55:36
Цитата
Hugo написал:
Ну а первая цифра это вообще нынче нонсенс  
:D  :D  :D
По вопросам из тем форума, личку не читаю.
 
 
 
#13
06.12.2020 18:00:21
OFF
Цитата
Hugo: нынче нонсенс
Какие сейчас существуют гендеры?
Facebook жжот: 54 новых пола. Весь список с переводом
лично я ощущаю себя советским штурмовиком Ил-2 (не пилотом, а самолётом) — интересно, это гендер?…  8)
Изменено: Jack Famous - 06.12.2020 18:05:37
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#14
06.12.2020 21:08:09
Пока ничего не меняется, но думаю, что "цивилизованный мир" доберётся и до нас.
 
 
 
#15
06.12.2020 21:45:42
Вспомнил - по нашим кодам не всё так плохо, там они как-то по строению отличаются, т.е. можно определить что в этом коде нет даты рождения (может и у литовцев такой вариант есть?)
А кстати насчёт пола у нас сразу вообще не заморачивались :)
Вообще такой код удобная штука, чиновники уже не спутают людей как вон в России постоянно в новостях говорят...
 
 
 
Страницы: 1
Наверх