وانت السالم استاذي العزيز وبالخدمة
ملاحظة : يمكن اختصار كود احتساب الفرق باليوم والشهر بالكود ادناه
If Day(Me.date2) >= Day(Me.Date1) Then
Me.tdate = Day(Me.date2) - Day(Me.Date1)
Me.tmonth = DateDiff("m", Me.Date1, Me.date2)
Else
Me.tdate = Day(Me.date2) - Day(Me.Date1) + 30
Me.tmonth = DateDiff("m", Me.Date1, Me.date2) - 1
End If