'رقم الشهرText1.Text = Month(Date)'تاريخ أول الشهر الحاليText2.Text = DateSerial(Year(Date), Month(Date), 1)'تاريخ آخر الشهر الحاليText3.Text = DateSerial(Year(Date), Month(Date) + 1, 0)