DateTime.DateFormat="yyyy-MM-dd HH:mm:ss"
Dim d As Long
d=DateTime.DateParse("2018-02-24 00:00:00")
Dim t As Long
t=DateTime.TimeParse("08:00:00")
Dim p As Period
p.Hours = DateTime.GetHour(t)
p.Minutes = DateTime.GetMinute(t)
p.Seconds = DateTime.GetSecond(t)
Dim NextTime As Long = DateUtils.AddPeriod(d, p)
Log(DateTime.Date(NextTime))