18-11-2014, 11:03 PM
السلام عليكم و رحمة الله تعالى و بركاته
أخي جرب هذا المثال لعله ينفعك
بالتوفيق
أخي جرب هذا المثال لعله ينفعك
كود :
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;بالتوفيق