Сравнение даты и времени

Question

Я хочу сравнить дату и время. Я пробовал date1.Date.CompareTo (date2.Date), но я не знаю, как добавить к нему время. Благодаря FURQAN

Answer 1

, если вам нужно сравнить время, вы должны объявить его как DateTime вместо Date

Dim dt1 As DateTime 
Dim dt2 As DateTime 
dt1 = Now 
dt2 = Now.AddMilliseconds(5) 
Dim dt3 As DateTime 
MessageBox.Show(dt2.Compare(dt2, dt1).ToString()) 

Answer 2

Проверить DateDiff, если вы хотите, чтобы разница между этими двумя датами либо в дни, часы, минуты и т.д.

или использовать d.AddDays, d.AddHours и т.д., где d представляет собой переменную типа даты

Answer 3

Dim dt1 As Date = Now 
    'Dim dt2 As Date = DateAdd(DateInterval.Year, 1, dt1) 'Add 1 year 
    'Dim dt2 As Date = DateAdd(DateInterval.Month, 1, dt1) 'Add 1 month 
    Dim dt2 As Date = DateAdd(DateInterval.Day, 1, dt1)  'Add 1 day 
    'Dim dt2 As Date = DateAdd(DateInterval.Hour, 1, dt1) 'Add 1 hour 
    'Dim dt2 As Date = DateAdd(DateInterval.Minute, 1, dt1) 'Add 1 minute 
    'Dim dt2 As Date = DateAdd(DateInterval.Second, 1, dt1) 'Add 1 second 
    If Format(dt1, "yyyyMMdd") < Format(dt2, "yyyyMMdd") Then 
     MsgBox("dt1 is lower then dt2") 
    ElseIf Format(dt1, "yyyyMMdd") > Format(dt2, "yyyyMMdd") Then 
     MsgBox("dt1 is greater then dt2") 
    ElseIf Format(dt1, "yyyyMMdd") = Format(dt2, "yyyyMMdd") Then 
     MsgBox("dt1 is equal dt2") 
    End If