11-06-2021, 11:21 AM
الصفحات : 1 2
11-06-2021, 06:51 PM
(11-06-2021, 11:21 AM)tahar1983 كتب : [ -> ]سلام عليكم كيف يتم حساب عدد الاشهر بين تاريخين
التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)12-06-2021, 12:16 AM
سلام عليكم
![[صورة: h5yJAHnUY]](https://i.upimg.com/h5yJAHnUY)
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
Date1, Date2 : TDateTime;
Diff,Months : Extended;
begin
date1:=DateTimePicker1.Date;
date2:=DateTimePicker2.Date;
Diff := DaysBetween(Date2,Date1);
label1.Caption:=floattostr(Diff);
Months := trunc(Diff/30);
label4.Caption:=floattostr(Months);
end;12-06-2021, 10:14 AM
![[صورة: 577321223.png]](https://www10.0zz0.com/2021/06/12/12/577321223.png)
25-06-2021, 06:19 PM
(12-06-2021, 12:16 AM)Mr.DOS كتب : [ -> ]سلام عليكمقمتو بتجربة الكود لكن يعطيلي خطا الرجاء تحميل مثال مرفق
كود :procedure TForm1.Button1Click(Sender: TObject); var Date1, Date2 : TDateTime; Diff,Months : Extended; begin date1:=DateTimePicker1.Date; date2:=DateTimePicker2.Date; Diff := DaysBetween(Date2,Date1); label1.Caption:=floattostr(Diff); Months := trunc(Diff/30); label4.Caption:=floattostr(Months); end;
25-06-2021, 11:02 PM
26-06-2021, 07:29 PM
26-06-2021, 07:59 PM
03-07-2021, 11:08 AM
09-07-2021, 11:18 PM
الصفحات : 1 2