التعديل على وحدة نمطية CalculateAgeDifference

[ANESS]

دالة في استعلام
duration3: CalculateAgeDifference([expdate],[enddate3])
عند استدعاء هذه الدالة بالقيم التالية
[expdate]=10/12/2022 و [enddate3])=10/11/2023. 
 تكون النتيجة 
01 years.  11 months. -366 days
ارجو التعديل على الوحدة 

Public Function CalculateAgeDifference(StartDate As Date, EndDate As Date) As String
    Dim years As Integer
    Dim months As Integer
    Dim days As Integer
    
    ' حساب عدد السنوات
    years = DateDiff("yyyy", StartDate, EndDate)
    
    ' حساب عدد الشهور
    months = DateDiff("m", StartDate, EndDate) Mod 12
    
    ' حساب عدد الأيام
    days = DateDiff("d", DateAdd("m", (years * 12) + months, StartDate), EndDate)
    
    ' تحقق من تجاوز الأيام والشهور عن الحد الأقصى
    If days >= 30 Then
        months = months + 1
        days = days - 30
    End If
    
    If months >= 12 Then
        years = years + 1
        months = months - 12
    End If
    
    ' تحويل النتيجة إلى نص
    CalculateAgeDifference = years & " years, " & months & " months, " & days & " days"
End Function

 

تم تعديل مارس 15, 2024 بواسطه ابوخليل
تنسيق الكود

[kkhalifa1960]

تفضل استاذ @ANESS مرفق بمكتبتي به ماتريد . انظر لتواريخك بالسطر الاخير بالجدو والنتائج بالاستعلام والنموذج .ووافني بالرد 

DDDateDiff.rar

[ANESS]

أريد تحويل كل قيم الأيام الأكبر من 14 إلى شهور والباقي إلى اصفار