+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اسند الى متغيرات j,m,a السنة و الشهر و اليوم من مركبة datetimepicker (/showthread.php?tid=812)
كيف اسند الى متغيرات j,m,a السنة و الشهر و اليوم من مركبة datetimepicker - amer mohamed - 13-04-2009
[COLOR="YellowGreen"]السلام عليكم
كيف اتحصل على قيمة ثلث متغيرات
الاولى j و يسند اليها اليوم
الثانية m و يسند اليها الشهر
الثالثة a و يسند اليها السنة
و الثلاث يجب ان تستخرج من datetimepicker)
datetimepicker متغيرة القيمة عند اللزوم اي عند تغييرها تتغير معها المتغيرات الثلاث j,m,a)[/COLOR]
كيف اسند الى متغيرات j,m,a السنة و الشهر و اليوم من مركبة datetimepicker - me_delphi - 14-04-2009
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var a,m,j:Word;
begin
DecodeDate(DateTimePicker1.Date,a,m,j);
Label1.Caption:= IntToStr(a);
Label2.Caption:= IntToStr(m);
Label3.Caption:= IntToStr(j);
end;