+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن كتابة رقمين من السنة الحالية (/showthread.php?tid=6568)
كيف يمكن كتابة رقمين من السنة الحالية - dahmane26 - 18-11-2014
كيف يمكن كتابة رقمين من السنة الحالية في edit.text
مثال 2014 تظهر فقط 14
كيف يمكن كتابة رقمين من السنة الحالية - makhlouf - 18-11-2014
السلام عليكم و رحمة الله تعالى و بركاته
أخي جرب هذا المثال لعله ينفعك
كود :
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;بالتوفيق