+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف نحسب فرق الوقت بالميلي ثانية ؟ (/showthread.php?tid=26331)
كيف نحسب فرق الوقت بالميلي ثانية ؟ - Omar Abd - 01-09-18
بسم الله الرحمن الرحيم
كما نعلم أن حساب فرق الوقت هو امر يسير بالنسبة للساعات و الدقائق و الثواني , من خلال الدالة :
كود :
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 FunctionRE: كيف نحسب فرق الوقت بالميلي ثانية ؟ - عابر سبيل 2 - 02-09-18
(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")