delphi4arab منتديات دلفي للعرب

السلام عليكم
ممكن كود الفرق بين تاريخين بالاشهر هكدا
الفرق بين 23/01/2016 و 05/03/2013
يكون الناتج 3 اشهر
اي ان حتى لو كان يوم واحد من الشهر يحسب شهر كامل

uses dateutils; //

Edit2.Text:=floattostr(DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date));
Edit3.Text:=floattostr(YearsBetween(DateTimePicker1.Date,DateTimePicker2.Date)) ;

[attachment=3369]date

سلام عليكم
ولله احترت كيف اجيبك ؟ وضح اكثر
اولا ما تريد فعله غير عملي او بالاحري غير منطقي
كيف الفرق بين التاريخين اعلاه يساوي 3 اشهر
بغض النضر عن السنة بين 2016 و 2013 ..

السلام عليكم
الاخ يريد والله اعلم فقط اظهار الشهر , يعني حساب عدد الاشهر التي مضت بالرجوع الى الفرق بين تارخين.
اظن انه اخطأ في كتابة التاريخ وضع 2013 بدل 2016.
علينا صياغة السؤال جيدا حتى نسهل على المجيب و السؤال الجيد والمفصل هو نصف الجواب.
والله هو الموفق.

السلام عليكم

PHP كود :
var
d1,m1,y1: word;
d2,m2,y2: word; result:integer;
Myfirstdate,Myseconddate: TDateTime;
begin
Myfirstdate:=EncodeDate(2000,09,16);
Myseconddate:=Now;
decodedate(Myfirstdate,y1,m1,d1);
decodedate(Myseconddate,y2,m2,d2);
result:=(m2-m1)+(y2-y1)*12;
 ShowMessage('diffmonth = '+IntToStr(result));
end; 

(13-09-2016, 04:34 PM)Mr.DOS كتب : [ -> ]ولله احترت كيف اجيبك ؟ وضح اكثر

السلام عليكم
اسف اخي السنة نفسها أي 2016
المنح العائلية تحسب بالاشهر اي حتى لو عمل الشخص 6 ايام او قل او اكثر تحسب شهر
اي لو عمل [size=small] 23/01/2016 و 05/03/2016[/size]
[size=small]تحسب له 3 اشهر[/size]

(16-09-2016, 08:08 AM)لؤي كتب : [ -> ]السلام عليكم

السلام عليكم
اخي الفرق بين
01/08/2016 و 30/09/2016
المفروض 2 شهر ليس 1 شهر كما يظهر من الكود

السلام عليكم
يكفي التعديل

كود :
result:=1+(m2-m1)+(y2-y1)*12;

bouazza8

ramiparadox

Mr.DOS

wadoud

لؤي

bouazza8

محمد عبد العزيز