مقارنة بين تاريخين في datetimepicker

[kwahab]

السلام عليكم ورحمة الله وبركاته
ارغب في معرغةالكود الذي يسمح بمقارنة تاريخين مدخلين عن طريق datetimepicker حيث يكون date1 احدث دوما من date2 وفي حالة ادخل التاريخ بالعكس تظهر رسالة تنبيه
بارك الله فيكم .

[nabilkeb]

ببساطة :

كود :

if datetimepicker1.DateTime<datetimepicker2.DateTime then showmessage(EEEEEEEEEEEE');

كذلك بالامكان استخراج الفارق بالأيام
و من تم إذا كان الفارق أصغر / أكبر من الصفر تظهر الرسالة

كود :

function DefDate(from, _to: Tdate) : integer; begin Result := Trunc(_to - from); end; procedure TForm1.DateTimePicker1Change(Sender: TObject); begin Label1.Caption := IntToStr( DefDate(DateTimePicker1.Date, DateTimePicker2.Date)); end;

بالتوفيق أخي

[nabilkeb]

ببساطة :

كود :

if datetimepicker1.DateTime<datetimepicker2.DateTime then showmessage(EEEEEEEEEEEE');

كذلك بالامكان استخراج الفارق بالأيام
و من تم إذا كان الفارق أصغر / أكبر من الصفر تظهر الرسالة

كود :

function DefDate(from, _to: Tdate) : integer; begin Result := Trunc(_to - from); end; procedure TForm1.DateTimePicker1Change(Sender: TObject); begin Label1.Caption := IntToStr( DefDate(DateTimePicker1.Date, DateTimePicker2.Date)); end;

هنا تم تعيين الفارق في كابشن اللابل1
بالتوفيق أخي

[kwahab]

شكراااا بارك الله فيك

[nabilkeb]

شكراااا بارك الله فيك

جميعنا هنا لنتعلم

بالتوفيق أخي

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
ان شاء الله تكون بخير اخي نبيل بارك الله فيك