منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمن الرحيم

مرفق لكم اخوانى مثالين إحداهما :
1- ايجاد الفرق بين تاريخين (شغال تمام مفيش مشكلة) .
والثاني ،،،
2- اضافة ايام لنفس التاريخ السابق بالمثال الاول (هنا المشكلة) المفروض
يكون الناتج مثل المثال الاول لانة يعتبر مثال معكوس !!!! ولكن تظهر نتيجة غير صحيحة .
^^^^ ^^^^^^ ^^^
ارجو من اخوانى مساعدتى فى تصحيح برمجة المثال الثانى ...
جزاكم الله كل الخير ..

بسم الله الرحمن الرحيم

الحمد لله تم تعديل كود عند اضافة ايام الى تاريخ معين ومطلوب الحصول على التاريخ ... توصلت الى نتيجة ترضينى ...

اليكم المثال بعد تغيير الكود ..

اعذرونى فانا فى بداية الاحتكاك بالبرمجة ولكن اردت ان اشارك معكم لعل هذه المشاركة تفيد احد مثلى ...
شكرا ...

توجد مشكلة فى السورس ارجو اعادة التحميل
وشكرا

حاضر لحظة واحدة ..

مشكلة فى المسار

ممكن حد يدلنى كيفية الحل

مرفق مثال اخر يارب يشتغل مثال منقول ... ممكن يفيد ايضا

ممكن حد يقولى ازاى احدد المسار واتغلب على المشكلة دى
لانى لما بنقل الملف من منطقة لمنطقة داخل الجهاز وفية قاعدة بيانات بضطر اعرف الادو oldeb مرة اخرى على المنطقة الجديدة

مرفق محول للتاريخ هجرى وميلادى

ده الكود بعدالتعديل


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

عندى سؤال بسيط ارجو المساعدة

السنة الهجرية 354 يوم

يعنى الشهر 29.5 يوم بالتالى

14 شهر هجرى = 413 يوم صواب الكلام او خطأ