حساب عدد الأيام الشهر (عنوان معدل)

[عبدالقدوس48]

حساب عدد الأيام  الشهر الأول وليس الثاني مثلا عندي تاريخين من تاريخ 06/03/2018 حتى تاريخ 31/10/2019 مطلوب هو 19 شهر و25 يوم  مشكلة ليست في الأشهر مشكلة حساب الأيام الشهر الأول فقط 

إستعملت دالة الأشهر صحيحة : DateDiff("m";[1]![من تاريخ];[1]![إلى تاريخ])+1 ....... المدة: DateDiff("d";[1]![من تاريخ];[1]![إلى تاريخ])+1  تحسب عدد الأيام  605  وشكرا

 

[jjafferr]

وعليكم السلام 🙂

 

رجاء مراعاة قوانين المنتدى في جعل اسم الموضوع له علاقة بمحتوى السؤال 🙂

 

هذه دالة موجودة في مساعد الاكسس ، وتم التغيير عليها لتتناسب مع طلبك:

Public Function YMDDif4(sDate1, sDate2)
On Error GoTo err_YMDDif4

    'sDate1 earliest date
    'sDate2 later date
    
    Dim dInterim1 As Date
    
    iMonth = DateDiff("m", sDate1, sDate2)
        
    If Day(sDate1) > Day(sDate2) Then
        iMonth = iMonth - 1
    End If
    
    dInterim1 = DateAdd("m", iMonth, sDate1)
    iDay = DateDiff("d", dInterim1, sDate2)
    
    D = iDay
    M = iMonth Mod 12
    Y = iMonth \ 12
    'YMDDif4 = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days"
    YMDDif4 = CStr(Y) & " س/" & CStr(M) & " ش/" & CStr(D) & " ي"

Exit Function
err_YMDDif4:

    If Err.Number = 94 Then
        'ignor, null
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

 

 

نناديها:

Me.lbl_Age.Caption = YMDDif4(Old date , New Date)

وللتاريخين اعلاه
Me.lbl_Age.Caption = YMDDif4("06/03/2018", "31/10/2019")

 

ونتيجة التاريخين اعلاه كان:

1 س/7 ش/25 ي

 

جعفر

[عبدالقدوس48]

شكرا لك أخي

وجزاك الله خيرا