تعديل كود

[kkhalifa1960]

تصحيح الكودات في موضوعات الوقت والتواريخ المرفق به حالتان :

1- الحالة الأولي بعطيه التاريخ يعطيني عدد الأيام وعدد الأشهر وعدد السنوات  ..........ويعمل تمام .

2- الحالة الثانية بعمل العكس بعطيه عدد الأيام وعدد الأشهر وعدد السنوات ليعطيني التاريخ بس فيه شئ خطأ في الأكواد .

فبرجاء أن تعديل الكودات لتعطيني النتيجة الصح . فمثلاً (لما أدخل تاريخ 18/01/1960 في الحالة الأولى  ) ثم أخذ مفرداته وأدخلها في الحالة الثانية يعطيني الشهر خطأ. ولما أدخل تاريخ 15/01/1958 في الحالة الأولى  ) ثم أخذ مفرداته وأدخلها في الحالة الثانية يعطيني الشهر صح !!!!!!!!!!!!!!!!!

CalculatAge.accdb

[Eng.Qassim]

السلام عليكم استاذ @kkhalifa1960

Me.M2 = [S2]
Me.YY = Format([S1], "yyyy") & "/" & [S2] & "/" & Format([S3], "d")

لاتحتاج الى فورمات لانها تعيد فقط الشهر بدون تاريخ

[Eng.Qassim]

بالمناسبة استاذ خليفة...الان انتبهت لوجود خطأ

وهو اذا كان شهر الميلاد اكبر من الشهر الحالي فالمفروض يقلل سنة  

[Eng.Qassim]

الكود التالي تقريبا يعطي تاريخ الميلاد

فقط يحتاج تعديل ..اذا كان عدد الايام المدخلة اكبر من ايام تاريخ اليوم يقوم بزيادة 1 الى تاريخ الميلاد

شوية تعذرني كوني مشغول لكن تلك الجزئية اعتقد سهلة 

Private Sub CmdBirth_Click()
    Dim yearValue As Integer
    Dim monthValue As Integer
    Dim dayValue As Integer
    Dim today As Date
    Dim dateOfBirth As Date

        yearValue = CInt(Me.T1)
        monthValue = CInt(Me.T2)
        dayValue = CInt(Me.T3)

        today = Date

        dateOfBirth = DateAdd("yyyy", -yearValue, today)
        dateOfBirth = DateAdd("m", -monthValue, dateOfBirth)
        dateOfBirth = DateAdd("d", -dayValue, dateOfBirth)

        Me.YY = dateOfBirth

End Sub

 

[Foksh]

أعذروني للمداخلة التي لا تعتمد على الأكواد ، بل توضيح حسب ما فهته من طريقة عمل وتحليل الأكواد لجلب تاريخ الميلاد بالتفصيل ( يوم ، شهر ، سنة ) أو عند الرجوع بالقاعدة بشكل عكسي للحصول على يوم الميلاد من عدد ( يوم ، شهر ، سنة ) مقارنة مع التاريخ الحالي وهو الشائع دائماً للحصول على هذه المعلومة .

أعتقد إنه بداية الأكواد وعندما نعطيها تاريخ مثل ( 18/1/1960 ) باستخدام الدوال أو الأكواد البرمجية فإنها تعمل على مبدأ جبر الكسور التي تنتج عن فروقات الأيام بالأشهر التي عدد أيامها ( 30 و 30 و 29 و 28 ) يوم ، فالمعروف أن السنة الشمسية تقريباً تعادل 365.2524 يوم حتى مع احتساب السنة الكبيسة ، وعند جبر الكسر بالدالة Int فإنها تصبح 365 . وبالنتيجة فإن العملية العكسية للحصول على التاريخ ستتعامل مع الأيام على أنها رقم صحيح لا رقم بكسور عشرية ، وأعتقد هنا يأتي الفرق ( جزء بسيط من اليوم على مدار 63 سنة و 8 شهور و 28 يوم ) .

بالعودة إلى الموضوع و الملف المرفق من الأستاذ @kkhalifa1960 ، فهو يعمل عند تجربتي له عدة مرات على تواريخ أخرى ؛ وحتى التاريخ الذي تحدث عنه .

والمرفق فيديو يوضح ذاك .

وأعتذر إذا تطرقت قريباً عن سياق الموضوع 

 

20231016_195803.zip

[kkhalifa1960]

نفس النتائج !!!!!!!!!!!!!!

[kkhalifa1960]

بعد التعديل .

CalculatAge-1.accdb