+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30 (/showthread.php?tid=4714)
ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30 - bouazza8 - 10-11-2012
السلام عليكم
ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 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;ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30 - format82 - 10-11-2012
سلام
بعد اضافة DateUtils في uses
لمعرفة عدد الايام بين تاريخين اكتب الكود التالي
كود :
Edit1.Text := IntToStr(DaysBetween(DateTimePicker1.Date, DateTimePicker2.Date));كود :
Edit2.Text := IntToStr(MonthsBetween(DateTimePicker1.Date, DateTimePicker2.Date));ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30 - bouazza8 - 11-11-2012
السلام عليكم
اخي هل عدد أيام كل الأشهر 30 يوم
و انا عندي edit1 ; edit2 ; edit3 لا استعمل DateTimePicker هل يمكن تعديل على هدا الاساس
الفرق بين 01/01/2008 و 31/12/2011 يجب ان يكون 1440 يوم حيث 4 سنوات في 12 شهر في 30 يوم
ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30 - format82 - 16-11-2012
bouazza8 كتب :السلام عليكمليس كل الشهور 30
اخي هل عدد أيام كل الأشهر 30 يوم
اذا اردت ان يكون كل الشهور 30 قم بتحويلها الي ايام ومن ثم اقسم عدد الايام علي 30 الناتج يكون عدد الشهور
إقتباس :و انا عندي edit1 ; edit2 ; edit3 لا استعمل DateTimePicker هل يمكن تعديل على هدا الاساس
كود :
Edit3.Text := IntToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)));ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30 - format82 - 24-11-2012
اخي الكريم هل جربت الكود السابق ؟
هذا الكود يقوم بما تريده
كود :
Edit3.Text := IntToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)));