日付と時刻を比較する

Question

日時を比較したいですか？ 私はdate1.Date.CompareTo（date2.Date）を試しましたが、時間を追加する方法は分かりません。 おかげ Furqan

Answer 1

あなたの時間を比較する必要がある場合は、あなたがいずれかの日、時間、分でこれらの2つの日付の差をしたい場合は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関数の代わりにDateTimeとしてそれを宣言する必要があります、等

OR使用d.AddDays、dはDate型の変数である等d.AddHours、

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