Access – Konverzija tekst-polja u datumski format

 –  aลพurirano:  –  

Kada budete konvertovali baze podataka i tabele iz nekog drugog formata (dBase, Paradox…) u Access format, moลพda ฤ‡e vam se javiti potreba da promenite datumska polja koja su u tekstualnom formatu (moguฤ‡e kombinacije MMDDYY ili DDMMYY) u „pravo“ datumsko polje. Kako izvrลกiti ovakvu konverziju u Accessu?

U sluฤaju da imate podatke (slogove) u tabeli koji se ฤuvaju u tekst-polju, u odgovarajuฤ‡em kratkom formatu datuma (recimo DD/MM/YY), moลพete jednostavno modifikovati strukturu tabele u dizajn modu. Treba da promenite osobinu tipa podatka u Date/Time format, i taฤnije Short Date format, a Access ฤ‡e odraditi konverziju za vas.

A da biste doลกli do ove taฤke, preporuฤujemo tri koraka. Prvo, preuzmite podatke iz tekst-polja i to u originalnom DDMMYY formatu, najverovatnije putem uvoza podataka (importovanja). Zatim, upotrebite UPDATE vrstu upita za ubacivanje "/", tako da datum bude u odgovarajuฤ‡em short-date formatu. I treฤ‡e, modifikujte strukturu tabele, kao ลกto smo veฤ‡ naveli: promenite format polja u Date/Time i detaljnije u Short Date format datuma.

UPDATE upit bi trebalo da izgleda sliฤno ovome, pretpostavljajuฤ‡i da polje ima naziv txtDatum, a tabela Tabela: 



UPDATE Tabela SET txtDatum =

Left([txtDatum],2)+"/"

+Mid([txtDatum],3, 2)+"/"

+Right([txtDatum],2);

Ukoliko ฤ‡ete konverziju obaviti funkcijom, trebalo bi da tekstualno polje DDMMYY formata odradite sledeฤ‡om funkcijom: 



Public Function TekstUDatum(strDDMMYY)

‘***********************************

‘ Public Function TekstUDatum(strDDMMYY)

‘ konverzija teksta u format DDMMYY

 kao datumski tip podatka

‘***********************************

Dim strDatum As String, dtmDatum As Date




strDatum = Left([strDDMMYY], 2)

+ „/“ + Mid([strDDMMYY], 3, 2)

+ _ „/“ + Right([strDDMMYY], 2)


dtmDatum= CDate(strDatum)

Text2Date = dtmDatum


End Function

Pratite Krstaricu na www.krstarica.com