< návrat zpět

MS Excel

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

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: rar7278_test-r.c.rar (6kB, staženo 38x)
Zaslat odpověď >
Richard99(13.2.2012 21:47)#007281
avatar
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
avatar
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje