(19-10-21, 02:26 PM)asemshahen5 كتب :

مشروع المفكرة الشهرية امل ان يعجبكم .

(19-10-21, 05:23 PM)wahmed كتب :

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim d As Date = CDate(TextBox1.Text)
    Do
        Dim day = d.ToString("dddd", CultureInfo.CreateSpecificCulture("ar-EG"))
        If d.DayOfWeek <> DayOfWeek.Friday And d.DayOfWeek <> DayOfWeek.Thursday Then
            DataGridView1.Rows.Add(d.ToString("yyyy/MM/dd"), day)
        End If
        d = d.AddDays(1)
        If d > CDate(TextBox2.Text) Then Exit Do
    Loop
End Sub