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


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


.zip   dtcalc.zip (الحجم : 3.85 ك ب / التحميلات : 41) date
الرد
#3
سلام عليكم
ولله احترت كيف اجيبك ؟ وضح اكثر
اولا ما تريد فعله غير عملي او بالاحري غير منطقي
كيف الفرق بين التاريخين اعلاه يساوي 3 اشهر
بغض النضر عن السنة بين 2016 و 2013 ..
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر
الرد
#4
السلام عليكم
الاخ يريد والله اعلم فقط اظهار الشهر , يعني حساب عدد الاشهر التي مضت بالرجوع الى الفرق بين تارخين.
اظن انه اخطأ في كتابة التاريخ وضع 2013 بدل 2016.
علينا صياغة السؤال جيدا حتى نسهل على المجيب و السؤال الجيد والمفصل هو نصف الجواب.
والله هو الموفق.
الخوف من أي محاولة جديدة طريق حتمي للفشل.
الرد
#5
السلام عليكم

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; 
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
[-] كل من 1 user says قال شكرا ل لؤي على المشاركة المفيدة
  • wadoud
الرد
#6
(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 شهر كما يظهر من الكود
الرد
#7
السلام عليكم
يكفي التعديل

كود :
result:=1+(m2-m1)+(y2-y1)*12;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
[-] كل من 1 user says قال شكرا ل محمد عبد العزيز على المشاركة المفيدة
  • لؤي
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم