تعديل على الكود لتحويل الأيام إلى أسابيع

[أيمن عبادي]

السلام عليكم
في النموذج المرفق، يوجد مودل فيه كود لايجاد الفرق بين تاريخين بالسنوات والأشهر والأيام
وأريد تعديل على الكود بحيث أذا زادت الأيام عن 6 أيام وقلت عن شهر يتم تحويلها إلى أسابيع

شاكرا لكم

حساب التاريخ باليوم والشهر والسنة (حساب العمر).rar

[أيمن عبادي]

اخواني ... 

[kaser906]

وعليكم السلام ورحمة الله وبركاتة

ماذا لو كان عدد الايام أكبر من 7 أو اكبر 14 أو اكبر من 21 .....الخ

::بالتوفيق::

[ابوخليل]

السلام عليكم

تم اختصار الوحدات النمطية الموجودة في المثال  بواحدة تقوم بالمهمة

Public vYears As Integer, vMonths As Integer, vWeeks As Integer, vDays As Integer
Function CalcAge(vDate1 As Date, vdate2 As Date) As String
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    vWeeks = vDays \ 7
    vDays = vDays Mod 7
    End Function

 

حساب التاريخ باليوم والاسبوع والشهر والسنة.mdb

[أيمن عبادي]

ألف شكر أخي أبو خليل

وجعله بميزان حساناتك

جمايلك غيرقتنا

تقبل تحياتي