แก้ปัญหากำหนดค่า Date ตามที่ต้องการแล้วเกิด Bug

Dim d1, d2 as Date
d1=New DateTime(dtpFrom.Value.Year, dtpFrom.Value.Month, dtpFrom.Value.Day, 8, 0, 0)
d2=New DateTime(dtpTo.Value.Year, dtpTo.Value.Month, dtpTo.Value.Day+1, 8,0,0) 'เกิด Bug

แก้โดย

Dim mdate As Date = dtpTo.Value
mdate = mdate.AddDays(1)
d2=New DateTime(mdate.Year, mdate.Month, mdate.Day, 8, 0, 0)