+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عدد الاشهر بين تاريخين (/showthread.php?tid=11391)
الصفحات:
1
2
عدد الاشهر بين تاريخين - tahar1983 - 11-06-2021
سلام عليكم كيف يتم حساب عدد الاشهر بين تاريخين
RE: عدد الاشهر بين تاريخين - محمد عبد العزيز - 11-06-2021
(11-06-2021, 11:21 AM)tahar1983 كتب : سلام عليكم كيف يتم حساب عدد الاشهر بين تاريخين
التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)
RE: عدد الاشهر بين تاريخين - Mr.DOS - 12-06-2021
سلام عليكم
كود :
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;RE: عدد الاشهر بين تاريخين - larbiparadox - 12-06-2021
![[صورة: 577321223.png]](https://www10.0zz0.com/2021/06/12/12/577321223.png)
RE: عدد الاشهر بين تاريخين - tahar1983 - 25-06-2021
(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;
RE: عدد الاشهر بين تاريخين - Mr.DOS - 25-06-2021
سلام عليكم
اضيف DateUtils الى uses
RE: عدد الاشهر بين تاريخين - tahar1983 - 26-06-2021
(25-06-2021, 11:02 PM)Mr.DOS كتب : سلام عليكم
اضيف DateUtils الى uses
شكرا وبارك الله فيك لقد نجحت
لو تكرمت كيف اطبقها علي قاعدة معطيات
يعني تدخل من في جدول والي في الجدول ليتم الحساب في خليه اسمها عدد الاشهر
RE: عدد الاشهر بين تاريخين - Mr.DOS - 26-06-2021
سلام عليكم
يمكنك استغلال المثال لتوضفه كيف ما تشاء
إقتباس :يعني تدخل من في جدول والي في الجدول ليتم الحساب في خليه اسمها عدد الاشهر
ارفق لنا مثال بسيط على قاعدة بيانات اكسس
RE: عدد الاشهر بين تاريخين - tahar1983 - 03-07-2021
(26-06-2021, 07:59 PM)Mr.DOS كتب : سلام عليكم
يمكنك استغلال المثال لتوضفه كيف ما تشاء
إقتباس :يعني تدخل من في جدول والي في الجدول ليتم الحساب في خليه اسمها عدد الاشهر
ارفق لنا مثال بسيط على قاعدة بيانات اكسس
لقد ارفقت لك مثال اريد استعمال fastribort في المثال
تحسب عدد الاشهر ثم تضرب تسوية 1 في عدد الاشهر وتجمعها مع التسوية وتضع المجموع
RE: عدد الاشهر بين تاريخين - Mr.DOS - 09-07-2021
سلام عليكم
1 - (المرفق) الجدول فارغ وما المقصور بالـ (التسوية) ؟ التي تريد جمعها مع ناتج ضرب عدد الاشهر و تسوية 1
2 - تصميم قاعدة البيانات (اعد النضر) اسامي الحقول + نوع الحقل نصي عددي ... الخ