VB的计算【更新中】

1、在日期的基础上设置好时间，然后跟现时的系统时间比较

Dim dtToday As DateTime = Now.Date
'dtToday = dtToday.AddHours("23")
'dtToday = dtToday.AddMinutes("38")
dtToday = dtToday + " " + CDate("15:30")

Dim dtNow As DateTime = DateTime.Now
Dim intComp As Integer = Date.Compare(dtToday, dtNow)