比较日期和时间

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