おしごとのびぼうろくだったり...
dim iRet as Integer = Date.Compare(date1,date2) 結果 iRet = -1 : date1 < date2 iRet = 0 : date1 = date2 iRet = 1 : date1 > date2