[مساعدة]

السلام عليكم

قد تكود هذه الفكرة هي المطلوبة

كود :

'Dim day As Integer = Now.Day ' معرفة اليوم من الشهر
'Dim p As Integer = 3 ' قيمة افتراضية القسم الثالث
'If day < 21 Then p = 2 ' إذا كان القسم الثاني
'If day < 11 Then p = 1 ' إذا كان  القسم الاول

'MsgBox(p)

حسب ما فهمت
أن تكون الأيام العشرة الأول من الشهر يظهر رقم 1
والأيام العشرة الثانية من الشهر يظهر رقم 2
وبقية أيام الشهر يظهر رقم 3