Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Konverzija datuma mesec/dan/god i dan/mesec/god

[es] :: Pascal / Delphi / Kylix :: Konverzija datuma mesec/dan/god i dan/mesec/god

[ Pregleda: 3015 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MatezYU

Član broj: 4114
Poruke: 1586
*.adanet.co.yu.



+17 Profil

icon Konverzija datuma mesec/dan/god i dan/mesec/god07.04.2006. u 14:54 - pre 197 meseci
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?
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Konverzija datuma mesec/dan/god i dan/mesec/god07.04.2006. u 16:44 - pre 197 meseci
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.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Konverzija datuma mesec/dan/god i dan/mesec/god

[ Pregleda: 3015 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.