كيف يمكن كتابة رقمين من السنة الحالية

[dahmane26]

كيف يمكن كتابة رقمين من السنة الحالية في edit.text



مثال 2014 تظهر فقط 14

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته
أخي جرب هذا المثال لعله ينفعك

كود :

procedure TForm1.Button1Click(Sender: TObject); var y,m,d:word; year,mont,i:string; begin decodedate(now,y,m,d); year := FormatFloat('00',Y) ; mont := FormatFloat('00',m) ; edit1.text:=copy(year,3,2); end;

بالتوفيق