ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30

[bouazza8]

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

هدا الكود محاولتي

كود :

VAR DATE1,DATE2 : TDATETIME; Diff : Extended; N,Y1,M1,D1,Y2,M2,D2 : INTEGER; begin Y1:=STRTOINT(COPY(DU.Text,7,4)); M1:=STRTOINT(COPY(DU.Text,4,2)); D1:=STRTOINT(COPY(DU.Text,2,1)); DATE1:=ENCODEDATE(Y1,m1,d1); Y2:=STRTOINT(COPY(AU.Text,7,4)); M2:=STRTOINT(COPY(AU.Text,4,2)); D2:=STRTOINT(COPY(AU.Text,2,1)); DATE2:=ENCODEDATE(Y2,m2,d2); Diff := Date2-Date1; NJOUR.Text:=FLOATTOSTR(DIFF); end;

[format82]

سلام
بعد اضافة DateUtils في uses
لمعرفة عدد الايام بين تاريخين اكتب الكود التالي

كود :

Edit1.Text := IntToStr(DaysBetween(DateTimePicker1.Date, DateTimePicker2.Date));

ولمعرفة عدد الشهور

كود :

Edit2.Text := IntToStr(MonthsBetween(DateTimePicker1.Date, DateTimePicker2.Date));

[bouazza8]

السلام عليكم
اخي هل عدد أيام كل الأشهر 30 يوم
و انا عندي edit1 ; edit2 ; edit3 لا استعمل DateTimePicker هل يمكن تعديل على هدا الاساس
الفرق بين 01/01/2008 و 31/12/2011 يجب ان يكون 1440 يوم حيث 4 سنوات في 12 شهر في 30 يوم

[format82]

السلام عليكم
اخي هل عدد أيام كل الأشهر 30 يوم

ليس كل الشهور 30
اذا اردت ان يكون كل الشهور 30 قم بتحويلها الي ايام ومن ثم اقسم عدد الايام علي 30 الناتج يكون عدد الشهور

و انا عندي edit1 ; edit2 ; edit3 لا استعمل DateTimePicker هل يمكن تعديل على هدا الاساس

كود :

Edit3.Text := IntToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)));

[format82]

اخي الكريم هل جربت الكود السابق ؟
هذا الكود يقوم بما تريده

كود :

Edit3.Text := IntToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)));