29-01-17, 04:08 PM
(آخر تعديل لهذه المشاركة : 29-01-17, 04:08 PM {2} بواسطة Ahmed_Mansoor.)
أهلا , إذا كانت إجابة الإخ "مساعدة" هي ماتريد , فهذا تحويل كوده إلى كود الفيجول بيسك6 :
PHP كود :
Private Sub Command1_Click()
Dim CurrentDay As Integer
Dim PartNumber As Integer
CurrentDay = Day(Date)
PartNumber = 3
If CurrentDay < 21 Then PartNumber = 2
If CurrentDay < 11 Then PartNumber = 1
txtser.Text = PartNumber
End Sub