[mac9]

(20-08-19, 04:10 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي لديك حيارات فيما تريد وتتلخص بالاتي:
1 - اظهار الاسم اعتمادا على ايام الاسبوع  بحيث نقرأ اسم اليوم ونظهر اسما مقرونا به وبهذا الاسماء يكون عددها سبعة اسم لكل يوم
2 - اظهار الاسم بناء على رقم اليوم في الشهر ويكون العدد 31 اسم
3 - اظهار الاسم بناء على رقم اليوم في السنة ويكون العدد 366 اسم(غير محبذ)
اليك الكود التالي للخيار الاول

كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyDay As Date = Now
       Dim MyName As String = ""
       If MyDay.ToString("dddd") = "Sunday" Then
           MyName = "Ali"

       ElseIf MyDay.ToString("dddd") = "Monday" Then
           MyName = "Jamil"

       ElseIf MyDay.ToString("dddd") = "Tuesday" Then
           MyName = "Omar"

       ElseIf MyDay.ToString("dddd") = "Wednesday" Then
           MyName = "Salem"

       ElseIf MyDay.ToString("dddd") = "Thursday" Then
           MyName = "Mohmmed"

       ElseIf MyDay.ToString("dddd") = "Friday" Then
           MyName = "Mustafa"

       ElseIf MyDay.ToString("dddd") = "Saturday" Then
           MyName = "Ehab"
       End If

       TextBox1.Text = MyName
   End Sub

احسن وبارك الله بيك هذا هو المطلوب