19-07-19, 01:16 PM
19-07-19, 01:37 PM
الحمد لله والشكر لله
ولك اخي الكريم
اخي امسح السطر الاول من هذا الكود لانه معرف بالاعلى
هذا
كود :
Dim datenow As Date
datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)اجعله هكذا فقط
كود :
datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)19-07-19, 02:03 PM
البرنامج شغال بس عند ادخال التاريخ في اليوم 13 وأكثر يعطي خطاء في السطر 33 اما قبل هذا التاريخ يكون سليم
19-07-19, 02:06 PM
السلام عليكم اخي الكريم
غير اعدادات التاريخ في جهاز الكومبيوتر الى هذا النمط "dd/MM/yyyy"
لانها عندك هكذا "MM/dd/yyyy"
اي ان حقل اليوم عندك هو حقل الشهر لذلك لايقبل رقم 13 فما فوق
غير اعدادات التاريخ في جهاز الكومبيوتر الى هذا النمط "dd/MM/yyyy"
لانها عندك هكذا "MM/dd/yyyy"
اي ان حقل اليوم عندك هو حقل الشهر لذلك لايقبل رقم 13 فما فوق
19-07-19, 05:45 PM
الشكر الجزيل لك اخي العزيز والمعذرة على ازعاجك
26-07-19, 08:09 PM
السلام عليكم ورحمة الله وبركاته
جزيت خيرا لما قدمته لنا من معلومات عن حساب العمر واعذرنا اذا اثقلنا عليك بالأسئلة
الكود الذي ارسلته يقوم بتحويل العمر بالتاريخ الميلادي هل من الممكن تحويل العمر
بالتاريخ الهجري
جزيت خيرا لما قدمته لنا من معلومات عن حساب العمر واعذرنا اذا اثقلنا عليك بالأسئلة
الكود الذي ارسلته يقوم بتحويل العمر بالتاريخ الميلادي هل من الممكن تحويل العمر
بالتاريخ الهجري
26-07-19, 09:28 PM
أخي سعيد
هذه الدالة لحساب العمر بالسنين والأشهر والأيام،
ويصلح للتاريخ الميلادي والهجري،
وبدون التطرق لتنسيق التاريخ في النظام،
ولو أردت مثلا استخدامه في حساب العمر أرسل له:
تاريخ الميلاد في كل من fromYear وfromMonth وfromDay
وتاريخ اليوم في كل من toYear وtoMonth وtoDay
أخي سعيد
إن كان هناك استفسار في الكود فأخبرني
هذه الدالة لحساب العمر بالسنين والأشهر والأيام،
ويصلح للتاريخ الميلادي والهجري،
وبدون التطرق لتنسيق التاريخ في النظام،
ولو أردت مثلا استخدامه في حساب العمر أرسل له:
تاريخ الميلاد في كل من 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
أخي سعيد
إن كان هناك استفسار في الكود فأخبرني
26-07-19, 11:40 PM
[attachment=22196]
هل اضيف هذا الكود على الكود السابق في البرنامج ام يتم استبدال الأكواد بالأكواد هذه التي ارسلتها حاليا
هل اضيف هذا الكود على الكود السابق في البرنامج ام يتم استبدال الأكواد بالأكواد هذه التي ارسلتها حاليا
26-07-19, 11:48 PM
أخي سعيد
لا أستطيع إفادتك أكثر في شيء لا أملك بياناته،
حتى أن الصورة التي في بداية الموضوع لم تحدد إسم كل مربع نص فيها.
أخي سعيد
إن احتجت للإفادة فقدم ما لديك من بيانات ثم أخبرني
لا أستطيع إفادتك أكثر في شيء لا أملك بياناته،
حتى أن الصورة التي في بداية الموضوع لم تحدد إسم كل مربع نص فيها.
أخي سعيد
إن احتجت للإفادة فقدم ما لديك من بيانات ثم أخبرني
27-07-19, 11:50 AM
هذا المرفق مشابه للذي معي في المشروع
[attachment=22205]
[attachment=22205]
[attachment=22206 كتب :الحازمي pid='145044' dateline='1564170524']أخي سعيد
لا أستطيع إفادتك أكثر في شيء لا أملك بياناته،
حتى أن الصورة التي في بداية الموضوع لم تحدد إسم كل مربع نص فيها.
أخي سعيد
إن احتجت للإفادة فقدم ما لديك من بيانات ثم أخبرني