فاصله بین دو زمان

[mohsenaminzare]

با سلام فرمی دارم که در دو label جداگانه دو زمان (ساعت) را نمایش میده چه جوری میتونم فاصله بین این دو زمان رو محاسبه کنم.
مثلا :

12:00 , 16:50 ==> 4:50 min

[amirsajjadi]

با سلام


Dim h As Integer, m As Integer
h = DateDiff(DateInterval.Hour, TimeSerial(12, 0, 0), TimeSerial(16, 50, 0))
m = DateDiff(DateInterval.Minute, TimeSerial(12, 0, 0), TimeSerial(16, 50, 0)) Mod 60
MsgBox(CStr(h) + ":" + CStr(m))

[mohsenaminzare]

باتشکر . کد جالبی است