07-10-19, 06:37 PM
07-10-19, 11:16 PM
[مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة
كود جلب ايام الاسبوع الحالي مع التواريخ عدا ايام العطل :
كود جلب ايام الاسبوع الحالي مع التواريخ عدا ايام العطل :
PHP كود :
'جلب ايام الاسبوع حسب التاريخ عدا ايام العطل'
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim mydate As DateTime, str1 As String
Dim dayName As String = Date.Today.DayOfWeek.ToString()
Dim datevalue As Date
mydate = Now
'number of days into the futreure from today'
For i = 0 To 10
mydate = DateTime.Today.AddDays(+i)
datevalue = mydate
str1 = datevalue.DayOfWeek.ToString
If str1 <> "Friday" And str1 <> "Thursday" Then
ComboBox1.Items.Add(str1 & " " & mydate.ToString("d"))
End If
Next
End Sub