• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: převod rč na dat. nar. v pomocí makra

Zaslal/a Plansecur 13.2.2012 16:14

Dd všem,
rád bych posílal klientum k narozeninám blahopřání.
napsal jsem si pokyn pro převod r.č. na datum narození.
"=DATUM(KDYŽ(A(DÉLKA(B4)=10;ČÁST(B4;1;2)*1<54);ČÁST(B4;1;2)+2000;ČÁST(B4;1;2)+1900);ČÁST(B4;3;2)-KDYŽ(ČÁST(B4;3;2)*1>12;50);ČÁST(B4;5;2)"
protože "kdyže" nesmírné nafukuji databázi bych toto rád převedl do makra ale ať se snažím nejsem tak pokročilí.
Múže mne někdo ukázat jak pokyn v makru musí vypadat?

děkuji předem všem

s.p.
Pavel

Příloha: 7278_test-r.c.rar (6kB, staženo 36x)

Zaslat odpověď >

---

Richard99(13.2.2012 21:47)#007281

Co tohle,

Bohužel to má jistá omezení rok je v rodném čísle pouze dvoumístný takže pro stoleté to nefunguje. To už si snad doladíš.

Function DatumNarozeni(RodneCislo)
rok = Left(RodneCislo, 2)
mesic = Mid(RodneCislo, 3, 2)
den = Mid(RodneCislo, 5, 2)
If mesic > 50 Then mesic = mesic - 50
If rok > 20 Then
rok = rok + 1900
Else
rok = rok + 2000
End If
DatumNarozeni = den & ". " & mesic & ". " & rok
End Functioncitovat

Richard99(13.2.2012 21:58)#007282

Pokud to potřebuješ ve tvaru číselného vyjádření

tak tohle

Function DatumNarozeni(RodneCislo)
rok = Left(RodneCislo, 2)
mesic = Mid(RodneCislo, 3, 2)
den = Mid(RodneCislo, 5, 2)
If mesic > 50 Then mesic = mesic - 50
If rok > 20 Then
rok = rok + 1900
Else
rok = rok + 2000
End If
DatumNarozeni = den & ". " & mesic & ". " & rok
DatumNarozeni = DateValue(DatumNarozeni)
End Functioncitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse