ต้อฃงการให้แสดง วันที่ ที่อยู่ระหว่างเริ่มวัน-สิ้นสุดวัน

 Dim startDay As Date = Now
        Dim endDay As Date = Now.AddDays(4).ToShortDateString

        Dim dayCtr As Date
        dayCtr = startDay

        While (dayCtr <= endDay)
            MessageBox.Show(dayCtr.ToShortDateString)
            'เฉพาะวันที่   dayCtr.ToString("dd")
            dayCtr = dayCtr.AddDays(1)
        End While

select * from table where (date >= '2019-06-20') and (date <='2019-06-25') order by date