Odradio sam kompletan program i kada treba da iz jmbg broja izvucem mesec, dan i godinu rodjenja to odradi. Ali problem nastaje na onim sistemima koji koriste drugaciji prikaz datuma, recimo ja prikazem u jednom boxu 13/02/1985 i onda iz tog boxa to konvertujem u datum i tako ga zapisem u bazu. Ali na racunaru gde se datum prikazuje sa 02/13/1985 program izbaci gresku i nece da odradi upis u bazu. Kako mogu to da resim?
Konverzija datuma mesec/dan/god i dan/mesec/god
Zaključano
Zakačeno
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;
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.