+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حساب العمر (/showthread.php?tid=30373)
RE: حساب العمر - سعيد المهر - 19-07-19
هذا الكود لا يعمل معي
datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)
ارسل لي الكود الثاني
RE: حساب العمر - ابراهيم ايبو - 19-07-19
الحمد لله والشكر لله
ولك اخي الكريم
اخي امسح السطر الاول من هذا الكود لانه معرف بالاعلى
هذا
كود :
Dim datenow As Date
datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)اجعله هكذا فقط
كود :
datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)RE: حساب العمر - سعيد المهر - 19-07-19
البرنامج شغال بس عند ادخال التاريخ في اليوم 13 وأكثر يعطي خطاء في السطر 33 اما قبل هذا التاريخ يكون سليم
RE: حساب العمر - ابراهيم ايبو - 19-07-19
السلام عليكم اخي الكريم
غير اعدادات التاريخ في جهاز الكومبيوتر الى هذا النمط "dd/MM/yyyy"
لانها عندك هكذا "MM/dd/yyyy"
اي ان حقل اليوم عندك هو حقل الشهر لذلك لايقبل رقم 13 فما فوق
RE: حساب العمر - سعيد المهر - 19-07-19
الشكر الجزيل لك اخي العزيز والمعذرة على ازعاجك
RE: حساب العمر - سعيد المهر - 26-07-19
السلام عليكم ورحمة الله وبركاته
جزيت خيرا لما قدمته لنا من معلومات عن حساب العمر واعذرنا اذا اثقلنا عليك بالأسئلة
الكود الذي ارسلته يقوم بتحويل العمر بالتاريخ الميلادي هل من الممكن تحويل العمر
بالتاريخ الهجري
RE: حساب العمر - الحازمي - 26-07-19
أخي سعيد
هذه الدالة لحساب العمر بالسنين والأشهر والأيام،
ويصلح للتاريخ الميلادي والهجري،
وبدون التطرق لتنسيق التاريخ في النظام،
ولو أردت مثلا استخدامه في حساب العمر أرسل له:
تاريخ الميلاد في كل من 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
أخي سعيد
إن كان هناك استفسار في الكود فأخبرني
RE: حساب العمر - سعيد المهر - 26-07-19
[attachment=22196]
هل اضيف هذا الكود على الكود السابق في البرنامج ام يتم استبدال الأكواد بالأكواد هذه التي ارسلتها حاليا
RE: حساب العمر - الحازمي - 26-07-19
أخي سعيد
لا أستطيع إفادتك أكثر في شيء لا أملك بياناته،
حتى أن الصورة التي في بداية الموضوع لم تحدد إسم كل مربع نص فيها.
أخي سعيد
إن احتجت للإفادة فقدم ما لديك من بيانات ثم أخبرني
RE: حساب العمر - سعيد المهر - 27-07-19
هذا المرفق مشابه للذي معي في المشروع
[attachment=22205]
[attachment=22206 كتب :الحازمي pid='145044' dateline='1564170524']أخي سعيد
لا أستطيع إفادتك أكثر في شيء لا أملك بياناته،
حتى أن الصورة التي في بداية الموضوع لم تحدد إسم كل مربع نص فيها.
أخي سعيد
إن احتجت للإفادة فقدم ما لديك من بيانات ثم أخبرني