المشاركات : 190
المواضيع 17
الإنتساب : Apr 2014
السمعة :
0
الشكر: 63
تم شكره 98 مرات في 80 مشاركات
بسم الله الرحمن الرحيم
مرفق لكم اخوانى مثالين إحداهما :
1- ايجاد الفرق بين تاريخين (شغال تمام مفيش مشكلة) .
والثاني ،،،
2- اضافة ايام لنفس التاريخ السابق بالمثال الاول (هنا المشكلة) المفروض
يكون الناتج مثل المثال الاول لانة يعتبر مثال معكوس !!!! ولكن تظهر نتيجة غير صحيحة .
^^^^ ^^^^^^ ^^^
ارجو من اخوانى مساعدتى فى تصحيح برمجة المثال الثانى ...
جزاكم الله كل الخير ..
الملفات المرفقة
التواريخ.rar (الحجم : 3.25 ك ب / التحميلات : 174)
المشاركات : 190
المواضيع 17
الإنتساب : Apr 2014
السمعة :
0
الشكر: 63
تم شكره 98 مرات في 80 مشاركات
بسم الله الرحمن الرحيم
الحمد لله تم تعديل كود عند اضافة ايام الى تاريخ معين ومطلوب الحصول على التاريخ ... توصلت الى نتيجة ترضينى ...
اليكم المثال بعد تغيير الكود ..
اعذرونى فانا فى بداية الاحتكاك بالبرمجة ولكن اردت ان اشارك معكم لعل هذه المشاركة تفيد احد مثلى ...
شكرا ...
الملفات المرفقة
إضافة ايام على التاريخ نهائي المعدل.rar (الحجم : 4.2 ك ب / التحميلات : 159)
المشاركات : 27
المواضيع 4
الإنتساب : Sep 2013
السمعة :
0
الشكر: 4
تم شكره 44 مرات في 11 مشاركات
توجد مشكلة فى السورس ارجو اعادة التحميل
وشكرا
المشاركات : 190
المواضيع 17
الإنتساب : Apr 2014
السمعة :
0
الشكر: 63
تم شكره 98 مرات في 80 مشاركات
مشكلة فى المسار
ممكن حد يدلنى كيفية الحل
مرفق مثال اخر يارب يشتغل مثال منقول ... ممكن يفيد ايضا
الملفات المرفقة
layan.rar (الحجم : 1.63 ك ب / التحميلات : 114)
المشاركات : 190
المواضيع 17
الإنتساب : Apr 2014
السمعة :
0
الشكر: 63
تم شكره 98 مرات في 80 مشاركات
ممكن حد يقولى ازاى احدد المسار واتغلب على المشكلة دى
لانى لما بنقل الملف من منطقة لمنطقة داخل الجهاز وفية قاعدة بيانات بضطر اعرف الادو oldeb مرة اخرى على المنطقة الجديدة
المشاركات : 190
المواضيع 17
الإنتساب : Apr 2014
السمعة :
0
الشكر: 63
تم شكره 98 مرات في 80 مشاركات
مرفق محول للتاريخ هجرى وميلادى
الملفات المرفقة
DateConverter.rar (الحجم : 2.95 ك ب / التحميلات : 100)
المشاركات : 190
المواضيع 17
الإنتساب : Apr 2014
السمعة :
0
الشكر: 63
تم شكره 98 مرات في 80 مشاركات
ده الكود بعدالتعديل
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
المشاركات : 190
المواضيع 17
الإنتساب : Apr 2014
السمعة :
0
الشكر: 63
تم شكره 98 مرات في 80 مشاركات
عندى سؤال بسيط ارجو المساعدة
السنة الهجرية 354 يوم
يعنى الشهر 29.5 يوم بالتالى
14 شهر هجرى = 413 يوم صواب الكلام او خطأ