السلام عليكم ورحمة الله وبركاته
ارغب في معرغةالكود الذي يسمح بمقارنة تاريخين مدخلين عن طريق datetimepicker حيث يكون date1 احدث دوما من date2 وفي حالة ادخل التاريخ بالعكس تظهر رسالة تنبيه
بارك الله فيكم .
ببساطة :
كود :
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;
بالتوفيق أخي
ببساطة :
كود :
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
بالتوفيق أخي
السلام عليكم و رحمة الله تعالى و بركاته
ان شاء الله تكون بخير اخي نبيل بارك الله فيك