مشترك جديد سؤال كيفية حساب المدة بين تاريخين على ان تكون بالأيام

السلام عليكم

جرب هذا الكود

اضف Button,Edit

uses DateUtils ;
...
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
begin
try
ADate := StrToDate(Edit1.Text);
except
// يجب ادخال الوقت بشكل صحيح 
MessageBox(handle,'Not a valid date','Error',MB_OK);
Exit;
end;
// Function Date returns the current date 
ShowMessage(IntToStr(DaysBetween(ADate,Date)));
end;

يمكن استخدام الدالة DaySpan بدلا عن DaysBetween . راجع Delphi Help لمعرفة الفرق بين الدالتين.

راجع DateUtils ستجد العديد من الدوال الخاصة بالتاريخ والزمن .

في امان الله

السلام عليكم ورحمة الله وبركاته

يمكن إستخدام داله Decodedate إبحث عنها في Help

(f)

السلام عليكم ورحمة الله وبركاته

جرب الكود المكتوب وان شاء الله توفق به 0

مرحباً

صديقي يمكنك إستخدام هذا السطر من التعليمات لحساب عدد الأيام بين أي تاريخين تريد

حيث dtp1,dtp2 هما عنصران من النوع Ttimedatepicker تضيفهما إلى النموذج لتحددمن خلالهما التاريخين المرادين

(label1.caption:=INTTOSTR(TRUNC(DTP2.DATE)-TRUNC(DTP1.DATE)-1

أرجو أن تكون قد حصلت على الإجابة التي تريد.....وبالتوفيق