TDate iz stringa iz integera bez obzira na locale

[ protech_v2 @ 15.03.2005. 22:08 ] @

Primoran sam da napravim TDate promenjivu iz vise integera koji mi predstavljaju dan, mesec i godinu.

To se lako uradi tako sto napravim string od tih integera npr:

date := IntToStr(month) + '/'+IntToStr(day_start) + '/'+IntToStr(year);

i dobijem nesto tipa "03/15/2005" sto pomocu StrToDate pretvorim u TDate promenjivu, ali postoji sledeci problem: ovo ne radi ako je su regionalna namestanja u Windowsu takva da je format datuma drugaciji (kao kod mene na poslu npr.)

Kako bih mogao da ovo uradim a da budem siguran da ce svuda jednako raditi?

[ protech_v2 @ 15.03.2005. 22:15 ] @

Nasao sam:

function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;

iz DateUtils unit-a :)