perintah berikut ini kalo dijalanin kok hasilnya ngaco ya ? vyear := DateToStr(YearOf(Now)); Yang diharapkan keluar kan kalo ga "2007" ya... "07". Tapi kok malah... "6/29/1905". Kenapa ya ? Padahal kalo cuma DateToStr(Now) ya keluarnya tanggal sekarang (alias ga salah)....

coba telili lg, itu yg di covert adalah date(datetostr) coba ganti jd IntToStr;

vyear:=IntToStr(YearOf(Now));

pake ginian juga boljug. vyear:=FormatDateTime('YYYY',Now);

Berarti fungsi YearOf itu udah menghasilkan nilai angka ya... Thanks buat bantuannya ya semuanya. Sekalian mau nanya satu lagi. Yang saya inginkan sebenernya dapet angka '07' tersebut. Nah, ketika ga bisa jalanin perintah di atas, saya akalin jadi : RightStr(DateToStr(Date),2); Tapi kayaknya perintah tersebut berpotensi jadi ngaco kalo Regional Settingnya berubah ya ? Bener ga ?

ya iya lah pasti ngaco, coba kamu gantiin ke tahun 80an ya yg ke ambil jam systemnya dong. kecuali kamu OL internet dan ngambil jam system dunia, itu tdk akan ngaco lho.....

pake ini aja vyear:=RightStr(IntToStr(YearOf(Now),2));