ACCESS въпрос

Здравейте,

искам да попитам следното: имам въведено ЕГН от сорта 1234567890 в texbox с име text26. Ползвам следното :

Private Sub Command28_Click()

Dim TxtContent As String

TxtContent = Nz(Me.Text26, "")

If TxtContent <> "" Then

Me.godina = Left$(TxtContent, 2)

If godina = 81 Then

godina = 1981

End If

Me.mesec = Left$(TxtContent, 4)

End If

В полето за година след вторият If ми показва правилната година, но проблема е с полето mesec и полето data.

Искам да попитам има ли някой готов скрипт за разделяне на година, месец и дата от дадено ЕГН.

Всъщност да се въвежда например ЕГН 1001065883, а в другите 3 кутии да се показва година 2010, месец 01, дата 06.

Благодаря предварително.

Edit: Намерих решение на проблема споделен по - горе. Използвах функциите два пъти един след друг. Ако Админ прецени темата е за триен.

Редактирано 17 юли 201016 г. от dokobg (преглед на промените)