การหาระยะเวลาที่แตกต่างกัน Time Diff

Dim d1 As Date = Now
Dim d2 As Date = Now.AddMinutes(60)
Dim Tdiff As Double = DateDiff(DateInterval.Minute, d1, d2)

หมายเหตุ
d2 เป็นตัวตั้งและ d1 เป็นตัวลบ
DateInterval.xxx : xxx นี้เลือกได้ว่าต้องการเป็นหน่วยนาทีหรือชั่วโมงหรือวินาทีหรือวันหรือ... ลองเลือกดู

หรือจะใช้ Timespan ก็ได้

Dim TdiffHour as Decimal
Dim TimeDiff As TimeSpan
TimeDiff = d2 - d1
TdiffHour = TimeDiff.TotalHours