محاسبه اختلاف ساعت

[a_m_i_n_000 1]

سلام

میخواستم اختلاف دو ساعت رو محاسبه کنم ؟

مثلا ساعت 15:00 رو از ساعت 18:40 دقیقه کم کنم تا جواب رو به ساعت و دقیقه بهم بده

اگه کتابخانه و نمونه کدی داشتین ممنون میشم

[arash127 488]

Sub getTime As String

Dim n As Long = DateTime.DateTimeParse("03/20/2016","18:40:00")

Dim m As Long = DateTime.DateTimeParse("03/20/2016","15:00:00")

Dim r As Long = n - m

If r > 0 Then

Return DateTime.GetDayOfMonth(r) &" : "& DateTime.GetHour(r) &" : "& DateTime.GetMinute(r) &" : "& DateTime.GetSecond(r)

End If

Return "0 : 00 : 00 : 00"

End Sub