تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد
#1
السلام عليكم ورحمة الله وبركاته

درس اليوم سهل وبسيط ، وهو استخلاص اليوم والشهر والسنة من التاريخ المعطى.

العمل
نفتح مشروعاً جديداً في لازاروس، ونخزنه.
على الفورم: نضع العنصر Calendar لاختيار التاريخ، وعدد 3 صناديق نصوص Edit، وزر واحد Button.
ننسق الفورم بحيث يصير مقبولاً

   

نذهب إلى محرر الكود، وتحت 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 ثم نختار تاريخاً وننقر على الزر.
الرد }}}
#2
مبدع ما شاء الله عليك
تشكرررااات
الرد }}}
#3
شكرا وبارك الله فيك
الرد }}}
تم الشكر بواسطة: أبوبكر سويدان , asemshahen5
#4
شكرا للمرور.
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
بارك الله فيك
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  صدور النسخة 3.0 من برنامج لازاروس vbtemp 0 165 31-12-23, 01:44 PM
آخر رد: vbtemp
Wink طلب برنامج Mareo 0 1,897 19-04-22, 06:56 AM
آخر رد: Mareo
  [مشروع] برنامج إدارة الديون - بحلته الجديدة أبوبكر سويدان 25 14,944 01-05-21, 11:04 PM
آخر رد: مصطفى العراقي75867
  برنامج إدارة قواعد بيانات SQLite أبوبكر سويدان 10 5,082 10-04-21, 09:58 PM
آخر رد: Abdouhk
  [كود] برنامج إدارة الديون - مفتوح المصدر أبوبكر سويدان 6 6,791 15-12-20, 12:02 AM
آخر رد: أبوبكر سويدان
  المساعدة في تجربة وتقييم برنامج مبيعات أبوبكر سويدان 22 10,078 09-07-20, 05:16 PM
آخر رد: أبوبكر سويدان
  برنامج لاستخراج الرقم التسلسلي للسواقة C أبوبكر سويدان 2 2,789 09-07-20, 05:14 PM
آخر رد: أبوبكر سويدان
  برنامج لفحص الاتصال بشبكة الإنترنت أبوبكر سويدان 1 2,198 07-07-20, 12:37 PM
آخر رد: العيد1403
  برنامج المبدع لإدارة المصروفات والإيرادات Adrees 6 5,190 28-06-19, 08:04 PM
آخر رد: abu ammar
  برنامج استخراج الأيبي الداخلي و الخارجي مع تفاصيل اضافية أبو ناصر 3 2,476 23-12-17, 02:18 PM
آخر رد: العيد1403

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم