比較日期和時間

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