02-09-18, 12:29 AM
(آخر تعديل لهذه المشاركة : 02-09-18, 01:02 AM {2} بواسطة عابر سبيل 2.)
(01-09-18, 11:12 PM)Omar Abd كتب : بسم الله الرحمن الرحيم
كما نعلم أن حساب فرق الوقت هو امر يسير بالنسبة للساعات و الدقائق و الثواني , من خلال الدالة :و لكن هل يمكن حساب فرق الوقت بالميلي ثانية خاصة إذا كنت مهتماً بالدقة في النتائج ؟كود :
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
TimeSpan فيها Milliseconds
تفضل تعديل السطر
PHP كود :
d = String.Format("{0:00}:{1:00}:{2:00}.{3:000}", Difference.Hours, Difference.Minutes, Difference.Seconds, Difference.Milliseconds)
على أن تضيف الميللي ثانية بالنقطة ( . ) وليس بالنقطتين( : ) مثل
7:13:57.124
PHP كود :
Dim d As String = Time_1("7:13:57.124", "9:26:55.137")
