اختبار حقل تاريخ وارجاع تاريخ بداية العام 1/1 من العام المختبر

Dim MyDate As Date

MyDate = CDate("1/1/" & 2014)

السلام عليكم اخي صلاح ، ومشرفي الافاضل :)

ولتتمة الفائدة من هذا الموضوع ، فهذه دالة (نضعها في module)  تقوم بحساب (سنة   شهر   يوم) بين تاريخين:

Public Function YMDDif2(sDate1, sDate2)
On Error GoTo err_YMDDif2

    'sdate1 earliest date sdate2 later
    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
    'YMDDif2 = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days"
    YMDDif2 = CStr(Y) & " س /" & CStr(M) & " ش /" & CStr(D) & " ي"

Exit Function
err_YMDDif2:

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

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

YMDDif2([First Date], [Last Date])

جعفر

بارك الله بك اخي الكريم : جعفر

على المشاركة والفائدة للجميع

يوجد دالة Diff2Dates  في المثال تقوم بإيجاد الفرق بين تاريخين  باليوم و الشهر والسنة وموجوده في الوحده النمطية

يبدو انك لم تطلع على المثال

بالتوفيق

انا اعتذر اختي الفاضلة ، نعم لم اتطلع على المثال :(

جعفر