Warunki, które chcemy wziąć pod uwagę:
Numer PESEL składa się z 11 znaków. Pierwsze 6 cyfr numeru określają datę urodzenia kolejno: rok, miesiąc, dzień.Numery PESEL osób urodzonych po roku 2000 mają liczbę określającą miesiąc urodzenia zwiększoną o 20. Jeśli zbudowanie takiej funkcji wydaje Ci się z początku zbyt skomplikowane, najlepszym rozwiązaniem jest rozbicie naszej funkcji na części pierwsze obliczając:
Zamiana numeru PESEL na datę urodzenia
Excel w swoich funkcjach wbudowanych nie posiada funkcji umożliwiającej nam zamianę numeru PESEL na datę urodzenia. Funkcję tą możemy zbudować samodzielnie wykorzystując tzw. funkcje zagnieżdżone.W naszym przykładzie interesować nas będą numery PESEL osób urodzonych po roku 1900. Jak wiemy, jest to najniższa wartość daty, którą Excel jest nam w stanie zinterpretować jako datę. Źródło: Data urodzenia z PESEL Excel
=DATA(JEŻELI(WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2))>12;20;19)&LEWY(A1;2);MOD(FRAGMENT.TEKSTU(A1;3;2);20);FRAGMENT.TEKSTU(A1;5;2))
=DATA(JEŻELI(WARTOŚĆ(FRAGMENT.TEKSTU(A1;3;2))>12;20;19)&LEWY(A1;2);MOD(FRAGMENT.TEKSTU(A1;3;2);20);FRAGMENT.TEKSTU(A1;5;2))
Inne przykłady Excel i VBA: VBA Przykłady,
Kurs VBA: Kurs VBA
Brak komentarzy:
Prześlij komentarz