+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ (/showthread.php?tid=2854)
إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 13-05-14
بسم الله الرحمن الرحيم
مرفق لكم اخوانى مثالين إحداهما :
1- ايجاد الفرق بين تاريخين (شغال تمام مفيش مشكلة) .
والثاني ،،،
2- اضافة ايام لنفس التاريخ السابق بالمثال الاول (هنا المشكلة) المفروض
يكون الناتج مثل المثال الاول لانة يعتبر مثال معكوس !!!! ولكن تظهر نتيجة غير صحيحة .
^^^^ ^^^^^^ ^^^
ارجو من اخوانى مساعدتى فى تصحيح برمجة المثال الثانى ...
جزاكم الله كل الخير ..
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 14-05-14
بسم الله الرحمن الرحيم
الحمد لله تم تعديل كود عند اضافة ايام الى تاريخ معين ومطلوب الحصول على التاريخ ... توصلت الى نتيجة ترضينى ...
اليكم المثال بعد تغيير الكود ..
اعذرونى فانا فى بداية الاحتكاك بالبرمجة ولكن اردت ان اشارك معكم لعل هذه المشاركة تفيد احد مثلى ...
شكرا ...
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - semsemalex - 14-05-14
توجد مشكلة فى السورس ارجو اعادة التحميل
وشكرا
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 14-05-14
حاضر لحظة واحدة ..
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 14-05-14
مشكلة فى المسار
ممكن حد يدلنى كيفية الحل
مرفق مثال اخر يارب يشتغل مثال منقول ... ممكن يفيد ايضا
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 14-05-14
ممكن حد يقولى ازاى احدد المسار واتغلب على المشكلة دى
لانى لما بنقل الملف من منطقة لمنطقة داخل الجهاز وفية قاعدة بيانات بضطر اعرف الادو oldeb مرة اخرى على المنطقة الجديدة
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 14-05-14
مرفق محول للتاريخ هجرى وميلادى
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 14-05-14
ده الكود بعدالتعديل
Private Sub Command1_Click()
Dim answer As Integer
Dim givedate As Date
givedate = 10 / 6 / 1433
answer = givedate + 792
Label6.Caption = DateAdd("d", 792, "10/6/1433")
Exit Sub
MsgBox ("ÃÏÎá ÇáÊÇÑíÎ ÈÇáÔßá ÇáÕÍíÍ")
End Sub
RE: إيجاد الفرق بين تاريخين وإضافة ايام لتاريخ - king2512010 - 14-05-14
عندى سؤال بسيط ارجو المساعدة
السنة الهجرية 354 يوم
يعنى الشهر 29.5 يوم بالتالى
14 شهر هجرى = 413 يوم صواب الكلام او خطأ