[ابو محمد محمد محمد]

كود :

Dim startTime As New DateTime(2013, 9, 19, 10, 30, 0)     ' 10:30 AM today
       Dim endTime As New DateTime(2013, 9, 20, 2, 0, 0)     ' 2:00 AM tomorrow

       Dim duration As TimeSpan = endTime - startTime        'Subtract start time from end time

       MsgBox(duration.ToString)

يمكنك ايضا التحويل الى الدقائق

كود :

duration.TotalMinutes