Dim Date1 As Date
Dim Date2 As Date
Dim iReturn As Integer
iReturn = Date.Compare(Date1, Date2)
iReturn = -1 (Date2が新しい日付)
iReturn = 1 (Date1が新しい日付)
iReturn = 0 (同じ日付)
Dim Date1 As Date
Dim Date2 As Date
Dim iReturn As Integer
iReturn = Date.Compare(Date1, Date2)
iReturn = -1 (Date2が新しい日付)
iReturn = 1 (Date1が新しい日付)
iReturn = 0 (同じ日付)