GoldenLine
Zaloguj się
Ryszard M.

Ryszard M. Księgowy | Analityk
danych

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Witam,
Chodzi mi o w miarę krótką formułę w MS Excel, która by zamieniała numer PESEL (11 znaków) na wartość daty (wiadomo: 6 pierwszych znaków PESEL jest datą urodzenia). Numer PESEL jest w komórce A1, formuła w komórce B1.
Pomożecie?
Link do wypowiedziLink
Piotr N.

Piotr N. .

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Np. mozna zrobić to taką formułą:
=DATA("19"&LEWY(A1;2);FRAGMENT.TEKSTU(A1;3;2);FRAGMENT.TEKSTU(A1;5;2))

Założenia:
- działa dla lat 19xx
- pierwsze 6 cyfr w peselu to data urodzeniaPiotr N. edytował(a) ten post dnia 19.05.07 o godzinie 14:13
Link do wypowiedziLink

konto usunięte

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Witam
Proszę spróbować takiej formuły:
=DATA.WARTOŚĆ(FRAGMENT.TEKSTU(A1;5;2) & "-" & FRAGMENT.TEKSTU(A1;3;2) & "-" & FRAGMENT.TEKSTU(A1;1;2))
kolumna z PESELAMI musi mieć format tekstowy

Pozdrawiam
Link do wypowiedziLink
Michał Zacierka

Michał Zacierka Junior Demand
Planning Manager

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Michał Z.:
ew. dla wszystkich MOZLIWYCH peseli

(...)
oczywiscie sie pomylilem :), prawidłowa formuła brzmi :
=JEŻELI(WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2))<20;DATA(WARTOŚĆ(19&FRAGMENT.TEKSTU(A1;1;2));WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2));WARTOŚĆ(FRAGMENT.TEKSTU(A1;5;2)));(JEŻELI(WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2))<40;DATA(WARTOŚĆ(20&FRAGMENT.TEKSTU(A1;1;2));WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2)-20);WARTOŚĆ(FRAGMENT.TEKSTU(A1;5;2)));JEŻELI(WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2))<60;DATA(WARTOŚĆ(21&FRAGMENT.TEKSTU(A1;1;2));WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2)-40);WARTOŚĆ(FRAGMENT.TEKSTU(A1;5;2)));JEŻELI(WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2))<80;DATA(WARTOŚĆ(22&FRAGMENT.TEKSTU(A1;1;2));WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2)-60);WARTOŚĆ(FRAGMENT.TEKSTU(A1;5;2)));ZŁĄCZ.TEKSTY(18;FRAGMENT.TEKSTU(A1;1;2);"-";TEKST(WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2))-80;0);"-";FRAGMENT.TEKSTU(A1;5;2)))))))
Link do wypowiedziLink
Damian Grimling

Damian Grimling własciciel,
sprzątaczka

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

trzy lata od Pan wpisu minęły, a formuła jak działała, tak działa;) - właśnie wygooglałem ten wpis. Dziękuję :)
Link do wypowiedziLink
Łukasz C.

Łukasz C. Dystrybucja Stali

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Damian Grimling:
trzy lata od Pan wpisu minęły, a formuła jak działała, tak działa;) - właśnie wygooglałem ten wpis. Dziękuję :)


a mnie działa tylko ta:
=DATA("19"&LEWY(A1;2);FRAGMENT.TEKSTU(A1;3;2);FRAGMENT.TEKSTU(A1;5;2))

coś z tą długą mam nie tak, może jakiś zły format komórki?
Link do wypowiedziLink

konto usunięte

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Łukasz C.:
Damian Grimling:
trzy lata od Pan wpisu minęły, a formuła jak działała, tak działa;) - właśnie wygooglałem ten wpis. Dziękuję :)


a mnie działa tylko ta:
=DATA("19"&LEWY(A1;2);FRAGMENT.TEKSTU(A1;3;2);FRAGMENT.TEKSTU(A1;5;2))

coś z tą długą mam nie tak, może jakiś zły format komórki?


a mi wyszło, że się urodziłam 3080-07-13 :))))
pozdrawiam
P.S. muszę się jeszcze sporo nauczyć
Link do wypowiedziLink
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Wpis moderatora:
mam nadzieję, że już nikt więcej nie założy wątku o podobnej konstrukcji tematu - wątek Excelo pogotowie jest specjalnym wątkiem.. ;-))
Link do wypowiedziLink
Janusz M.

Janusz M. pracownik ds. płac

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Ja stosuje następującą formułę:
=19000000+WARTOŚĆ(LEWY(A1;6))
(dla urodzonych po 1999 należy wpisać 20000000 zamiast 19000000
Warunki:
A1 format tekst
komórka wynikowa:
format liczby,
kod formatu 0000-00-00

Działa również w OpenOffice.Janusz M. edytował(a) ten post dnia 21.06.11 o godzinie 12:28
Link do wypowiedziLink
Katarzyna Kliś

Katarzyna Kliś Marketing Manager,
ADVPoland.pl

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

po prawie 10 latach - nadal działa :)
Link do wypowiedziLink
Norbert Kuś

Norbert Kuś

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

Odświeżam temat.
szukałem odpowiedniej formuły do przekształcenia PESEL na data urodzenia.
Niestety podana tutaj formuła dla peseli np 08322100000 podaje date 2083-02-10 zamiast 2008-12-21

Postanowiłem sam pogrzebać. No i ....
Informacyjnie u mnie w arkuszu nr PESEL był w D3

Moja formuła
=JEŻELI(DŁ(D3)=11;JEŻELI(FRAGMENT.TEKSTU(D3;3;1)*1>1;"20"&FRAGMENT.TEKSTU(D3;1;2)&"-"&FRAGMENT.TEKSTU(D3;3;2)-20&"-"&FRAGMENT.TEKSTU(D3;5;2);"19"&FRAGMENT.TEKSTU(D3;1;2)&"-"&FRAGMENT.TEKSTU(D3;3;2)&"-"&FRAGMENT.TEKSTU(D3;5;2));"200"&LEWY(D3;1)&"-"&FRAGMENT.TEKSTU(D3;2;1)-2&FRAGMENT.TEKSTU(D3;3;1)&"-"&FRAGMENT.TEKSTU(D3;4;2))

przetestowałem dla dat 1900-1999 i chyba ok
powyżej dat roku 2000 tez OK
jedynie przy datach np 2012-8-25 - jest błąd miesiąca. Dla mnie nie był to problem - gdyż cały wynik formuły (wklej wartości) by excel poprawnie widział date - potraktowałem DANE - Tekst jako formuły - i przy konwersji wybieram w trzecim kroku date RMD
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

No w tym przypadku będzie 2003r, a nie 2008r ?
Są pewne reguły dla wyliczania rocznika nie tylko te z których oblicza się rok, ale również płeć, prawidłowość numeru (suma kontrolna). Nie wszystko prosto obliczyć formułą, choć można stworzyć tasiemca na każdą okazję.
Ja mam takie narzędzie: http://vbatools.pl/numery-identyfikacyjne/
Link do wypowiedziLink
Norbert Kuś

Norbert Kuś

Temat: [excelo pogotowie] zamiana PESEL na datę urodzenia

na 100% 2008
zasada PESEL
2008-01-01
082101XXXXX
początek roku "2" wędruje do początku miesiąca - dla stycznia będzie to oznaczenie "21", dla listopada "31"; grudzień "32".
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

[excelo pogotowie] - format...




Wyślij zaproszenie do
Anuluj