أريد كود ايرادات الربع الثاني والثالث والاخير

[أيمن عبادي]

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

اخواني الأعضاء

هذا كود إيجاد إيرادات الربع الأول:

من تاريخ (text2) وحتى تاريخ (text4)

Me.Text2 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 4, 0)
والمطلوب:

كود إيرادات الربع الثاني والثالث والأخير

أشكر الجميع على سعة الصدر

تم تعديل سبتمبر 14, 2018 بواسطه أيمن عبادي

[أيمن عبادي]

[أيمن عبادي]

الأخوة الكرام

لله الحمد تمكنت من إيجاد الحل ، وأضعه بين أيديكم للاستفادة منه

كود الربع الأول:

Me.Text2 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 4, 0)

كود الربع الثاني:

Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 1 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 1 + 4, 0)

كود الربع الثالث:

Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 2 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 2 + 4, 0)

كود الربع الأخير:

Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 3 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 3 + 4, 0)

[kanory]

🥀