[سعيد المهر]

هذا الكود لا يعمل معي
datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)
ارسل لي الكود الثاني

[ابراهيم ايبو]

الحمد لله والشكر لله 

ولك اخي الكريم

---

اخي امسح السطر الاول من هذا الكود لانه معرف بالاعلى
هذا

كود :

Dim datenow As Date
      datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)

اجعله هكذا فقط

كود :

      datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)

[سعيد المهر]

البرنامج شغال بس عند ادخال التاريخ في اليوم 13 وأكثر يعطي خطاء في السطر 33 اما قبل هذا التاريخ يكون سليم

[ابراهيم ايبو]

السلام عليكم اخي الكريم 
غير اعدادات التاريخ في جهاز الكومبيوتر الى هذا النمط "dd/MM/yyyy"
لانها عندك هكذا "MM/dd/yyyy"
اي ان حقل اليوم عندك هو حقل الشهر لذلك لايقبل رقم 13 فما فوق

[سعيد المهر]

الشكر الجزيل لك اخي العزيز والمعذرة على ازعاجك

[سعيد المهر]

السلام عليكم ورحمة الله وبركاته
جزيت خيرا لما قدمته لنا من معلومات عن حساب العمر واعذرنا اذا اثقلنا عليك بالأسئلة
الكود الذي ارسلته يقوم بتحويل العمر بالتاريخ الميلادي هل من الممكن تحويل العمر
بالتاريخ الهجري

[الحازمي]

أخي سعيد

هذه الدالة لحساب العمر بالسنين والأشهر والأيام،
ويصلح للتاريخ الميلادي والهجري،
وبدون التطرق لتنسيق التاريخ في النظام،

ولو أردت مثلا استخدامه في حساب العمر أرسل له:
تاريخ الميلاد في كل من fromYear وfromMonth وfromDay
وتاريخ اليوم في كل من toYear وtoMonth وtoDay

PHP كود :

Public Sub OldCalc(fromYear As Integer, fromMonth As Integer, fromDay As Integer, toYear As Integer, toMonth As Integer, toDay As Integer)
    Dim years = toYear - fromYear
    Dim months = toMonth - fromMonth
    Dim days = toDay - fromDay
    If days < 0 Then days = days + 30 : months = months - 1
    If months < 0 Then months = months + 12 : years = years - 1
    txt_Years.Text = years
    txt_Months.Text = months
    txt_Days.Text = days
End Function 


أخي سعيد
إن كان هناك استفسار في الكود فأخبرني

[سعيد المهر]

  احسب عمرك 3.rar (الحجم : 203.66 ك ب / التحميلات : 12)
هل اضيف هذا الكود على الكود السابق في البرنامج ام يتم استبدال الأكواد بالأكواد هذه التي ارسلتها حاليا

[الحازمي]

أخي سعيد

لا أستطيع إفادتك أكثر في شيء لا أملك بياناته،
حتى أن الصورة التي في بداية الموضوع لم تحدد إسم كل مربع نص فيها.


أخي سعيد
إن احتجت للإفادة فقدم ما لديك من بيانات ثم أخبرني

[سعيد المهر]

هذا المرفق مشابه للذي معي في المشروع

  احسب عمرك 3.rar (الحجم : 203.66 ك ب / التحميلات : 5)

---

[attachment=22206 كتب :الحازمي pid='145044' dateline='1564170524']أخي سعيد

لا أستطيع إفادتك أكثر في شيء لا أملك بياناته،
حتى أن الصورة التي في بداية الموضوع لم تحدد إسم كل مربع نص فيها.


أخي سعيد
إن احتجت للإفادة فقدم ما لديك من بيانات ثم أخبرني