+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مقارنة بين تاريخين في datetimepicker (/showthread.php?tid=1185)
مقارنة بين تاريخين في datetimepicker - kwahab - 07-09-2009
السلام عليكم ورحمة الله وبركاته
ارغب في معرغةالكود الذي يسمح بمقارنة تاريخين مدخلين عن طريق datetimepicker حيث يكون date1 احدث دوما من date2 وفي حالة ادخل التاريخ بالعكس تظهر رسالة تنبيه
بارك الله فيكم .
مقارنة بين تاريخين في datetimepicker - nabilkeb - 07-09-2009
ببساطة :
كود :
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;بالتوفيق أخي
مقارنة بين تاريخين في datetimepicker - nabilkeb - 07-09-2009
ببساطة :
كود :
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;بالتوفيق أخي
مقارنة بين تاريخين في datetimepicker - kwahab - 08-09-2009
شكراااا بارك الله فيك
مقارنة بين تاريخين في datetimepicker - nabilkeb - 08-09-2009
kwahab كتب :شكراااا بارك الله فيكجميعنا هنا لنتعلم
بالتوفيق أخي
مقارنة بين تاريخين في datetimepicker - Anter2010 - 05-11-2010
السلام عليكم و رحمة الله تعالى و بركاته
ان شاء الله تكون بخير اخي نبيل بارك الله فيك