User61956409 posted
Hi shsu,
If VIS.Text > Datefrom.Text And VIS.Text < Dateto.Text
If you'd like to compare current_date, from_date and to_date, you can refer to the following code snippet, which works for me.
Datefrom.Text = "20/9/2018"
Dateto.Text = "10/10/2018"
Vis.Text = DateTime.Now.ToString("dd/M/yyyy")
Dim date_Vis As DateTime = DateTime.ParseExact(Vis.Text, "dd/M/yyyy", System.Globalization.CultureInfo.InvariantCulture)
Dim date_from As DateTime = DateTime.ParseExact(Datefrom.Text, "dd/M/yyyy", System.Globalization.CultureInfo.InvariantCulture)
Dim date_to As DateTime = DateTime.ParseExact(Dateto.Text, "dd/M/yyyy", System.Globalization.CultureInfo.InvariantCulture)
Dim isture As Boolean = False
If DateTime.Compare(date_Vis, date_from) > 0 And DateTime.Compare(date_to, date_Vis) > 0 Then
isture = True
End If
With Regards,
Fei Han