دخول

tahar1983 · 11-06-2021, 11:21 AM

سلام عليكم كيف يتم حساب عدد الاشهر بين تاريخين

***محمد عبد العزيز*** · 11-06-2021, 06:51 PM

(11-06-2021, 11:21 AM)tahar1983 كتب : سلام عليكم كيف يتم حساب عدد الاشهر بين تاريخين

التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)

Mr.DOS · 12-06-2021, 12:16 AM

سلام عليكم

[صورة: 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;

larbiparadox · 12-06-2021, 10:14 AM

tahar1983 · 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;

قمتو بتجربة الكود لكن يعطيلي خطا الرجاء تحميل مثال مرفق

Mr.DOS · 25-06-2021, 11:02 PM

سلام عليكم
اضيف DateUtils الى uses

tahar1983 · 26-06-2021, 07:29 PM

(25-06-2021, 11:02 PM)Mr.DOS كتب : سلام عليكم
اضيف DateUtils الى uses

شكرا وبارك الله فيك لقد نجحت

لو تكرمت كيف اطبقها علي قاعدة معطيات
يعني تدخل من في جدول والي في الجدول ليتم الحساب في خليه اسمها عدد الاشهر

Mr.DOS · 26-06-2021, 07:59 PM

سلام عليكم
يمكنك استغلال المثال لتوضفه كيف ما تشاء

إقتباس :يعني تدخل من في جدول والي في الجدول ليتم الحساب في خليه اسمها عدد الاشهر

ارفق لنا مثال بسيط على قاعدة بيانات اكسس

tahar1983 · 03-07-2021, 11:08 AM

(26-06-2021, 07:59 PM)Mr.DOS كتب : سلام عليكم
يمكنك استغلال المثال لتوضفه كيف ما تشاء

إقتباس :يعني تدخل من في جدول والي في الجدول ليتم الحساب في خليه اسمها عدد الاشهر

ارفق لنا مثال بسيط على قاعدة بيانات اكسس

لقد ارفقت لك مثال اريد استعمال fastribort في المثال

تحسب عدد الاشهر ثم تضرب تسوية 1 في عدد الاشهر وتجمعها مع التسوية وتضع المجموع

Mr.DOS · 09-07-2021, 11:18 PM

سلام عليكم
1 - (المرفق) الجدول فارغ وما المقصور بالـ (التسوية) ؟ التي تريد جمعها مع ناتج ضرب عدد الاشهر و تسوية 1
2 - تصميم قاعدة البيانات (اعد النضر) اسامي الحقول + نوع الحقل نصي عددي ... الخ

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة