Imports System.Collections.Generic
Imports System.Text.RegularExpressions
Public Sub Main(args() As string)
Dim str As String = "srt_inlbp_20130517"
Dim dTableDate As Date = Convert.ToDateTime("2018/02/14")
Dim dFromDate As DateTime = Convert.ToDateTime("2018/02/14")
Dim dToDate As DateTime = Convert.ToDateTime("2018/02/20")
If ((dTableDate >= dFromDate) And (dTableDate <= dToDate)) Then
Console.WriteLine("between")
Console.WriteLine("not between")