[asto]

كود :

x = Month(Now)
y = x - 1

If y = 0 Then y = 12
If x = 1 Then Text2.Text = "كانون 2"
If y = 1 Then Text1.Text = "كانون 2"
If x = 2 Then Text2.Text = "شباط"
If y = 2 Then Text1.Text = "شباط"
If x = 3 Then Text2.Text = "آذار"
If y = 3 Then Text1.Text = "آذار"
If x = 4 Then Text2.Text = "نيسان"
If y = 4 Then Text1.Text = "نيسان"
If x = 5 Then Text2.Text = "أيار"
If y = 5 Then Text1.Text = "أيار"
If x = 6 Then Text2.Text = "حزيران"
If y = 6 Then Text1.Text = "حزيران"
If x = 7 Then Text2.Text = "تموز"
If y = 7 Then Text1.Text = "تموز"
If x = 8 Then Text2.Text = "آب"
If y = 8 Then Text1.Text = "آب"
If x = 9 Then Text2.Text = "ايلول"
If y = 9 Then Text1.Text = "ايلول"
If x = 10 Then Text2.Text = "ت1"
If y = 10 Then Text1.Text = "ت1"
If x = 11 Then Text2.Text = "ت2"
If y = 11 Then Text1.Text = "ت2"
If x =12 Then Text2.Text = "ك1"
If y = 12 Then Text1.Text = "ك1"