[abuyazan]

كود :

Dim regDate As Date = Date.Now()[align=left]
       Dim strDate As String = regDate.ToString("MM\/dd\/yyyy")
       labeleDateNow.Text = strDate
                
       
       
       LabetDateAfterweek.Text = Date.Now.AddDays(7).ToString("MM\/dd\/yyyy")
       '
       Dim SqlDays As String = "SELECT * FROM View1 WHERE Party_Date1 BETWEEN '" & labeleDateNow.Text & "' AND '" & LabetDateAfterweek.Text & "' "