+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : البيئات التطويرية ولغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=81)
+--- قسم : البيئات التطويرية للغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=82)
+---- قسم : Lazarus / Free Pascal (http://vb4arb.com/vb/forumdisplay.php?fid=191)
+---- الموضوع : برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد (/showthread.php?tid=12795)
برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد - أبوبكر سويدان - 23-07-15
السلام عليكم ورحمة الله وبركاته
درس اليوم سهل وبسيط ، وهو استخلاص اليوم والشهر والسنة من التاريخ المعطى.
العمل
نفتح مشروعاً جديداً في لازاروس، ونخزنه.
على الفورم: نضع العنصر Calendar لاختيار التاريخ، وعدد 3 صناديق نصوص Edit، وزر واحد Button.
ننسق الفورم بحيث يصير مقبولاً
[attachment=7474]
نذهب إلى محرر الكود، وتحت Private نعرف المتغيرات التالية:
كود :
private
{ private declarations }
TheDay: word;
TheMonth: word;
TheYear: word;حيث word هو أحد انواع اﻷعداد الصحيحة integer.
اﻵن في حدث النقر المفرد click للزر نكتب:
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(dtCalendar.DateTime, TheYear, TheMonth, TheDay);
txtDay.Text:= inttostr(TheDay);
txtMonth.Text:= inttostr(TheMonth);
txtYear.Text:= inttostr(TheYear);
end; حيث dtCalendar هو الاسم البرمجي للتقويم.
استعملنا الإجراء DecodeDate لاستخلاص اليوم والشهر والسنة وتخزينها في المتغيرات المعطاة وهي TheYear وTheMonth وTheDay.
قمنا بعرض كل قيمة في الصندوق المخصص لها، واستعملنا الدالة IntToStr لتحويل القيمة الصحيحة إلى قيمة نصية.
نجرب التنفيد بالضغط على المفتاح F9 ثم نختار تاريخاً وننقر على الزر.
RE: برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد - Amir_Alzubidy - 23-07-15
مبدع ما شاء الله عليك
تشكرررااات
RE: برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد - العيد1403 - 11-02-16
شكرا وبارك الله فيك
RE: برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد - أبوبكر سويدان - 27-07-16
شكرا للمرور.
RE: برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد - husseinwageih - 01-10-19
بارك الله فيك