Koliko znam u maticnom broju na prva dva mesta se nalazi dan, zatim na druga dva mesec i posle na tri mesta je godina. Mozes da izvuces strignove na ovaj nacin
Code:
dim Dan, Mesec, Godina as String
Dan = Mid$(MaticniBroj, 1, 2)
Mesec = Mid$(MaticniBroj, 3, 2)
Godina = Mid$(MaticniBroj, 5, 3)
Posle sa tim stringovima radi sta ti treba... ubaci ih u Label ili Edit... to verovatno vec znas.