Code:
var
Dan, Mesec, Godina: Word;
Datum: TDate;
begin
Dan := 1; //uzmes nekako iz JMBG
Mesec := 2; //uzmes nekako iz JMBG
Godina := 2006; //uzmes nekako iz JMBG
Datum := EncodeDate(Godina, Mesec, Dan);
Edit1.Text := DateToStr(Datum);
// nesto radis... korisnik pise u Edit1.Text
Datum := StrToDate(Edit1.Text);
Baza.FieldByName('NekiDatum').AsDateTime := Datum;
end;
Kako god da je podeseno da se prikazuje datum kod korisnika, tako ce raditi i tvoj program.