01-09-18, 11:12 PM
بسم الله الرحمن الرحيم
كما نعلم أن حساب فرق الوقت هو امر يسير بالنسبة للساعات و الدقائق و الثواني , من خلال الدالة :
كود :
Function Time_1(ByVal t As String, ByVal t1 As String) As String
Dim d As String
Dim Difference As TimeSpan = TimeSpan.Parse(t1) - TimeSpan.Parse(t)
If TimeSpan.Parse(t1) < TimeSpan.Parse(t) Then Difference = TimeSpan.Parse("24") + Difference
d = Strings.Right("0" & Difference.Hours, 2) & ":" & Strings.Right("0" & Difference.Minutes, 2) & ":" & Strings.Right("0" & Difference.Seconds, 2)
Return d
End Function