IBM Lotus Symphony
|
يتم احتساب قيمة تسلسل الوقت من الساعة والدقائق والثواني المحددة - المعاملات التي تم امرارها كمجموعة حروف - التي تمثل الوقت في قيمة رقيمة واحدة. يمكن استخدام هذه القائمة لاحتساب الفرق بين الوقت.
TimeValue (Text As String)
التاريخ
Text: أي تعبير مجموعة حروف يحتوي على الوقت الذي تريد احتسابه بالنسق "HH:MM:SS".
استخدم وظيفة TimeValue function لتحويل أي وقت لقيمة واحدة، بحيث يمكنك حساب اختلافات التوقيت.
تقوم وظيفة TimeValue function هذه بارجاع type Variant مع VarType 7 (Date)، وتقوم بتخزين هذه القيمة داخليا كرقم double-precision بين 0 و 0.9999999999.
في وظيفة TimeSerial function، يمكنك امرار معاملات منفردة (hour، minute، second) كتعبيرات رقمية منفصلة. بالنسبة لوظيفة TimeValue function، يمكنك امرار مجموعة حروف كمعامل يحتوي على الوقت.
في وظيفة TimeSerial function، يمكنك امرار معاملات منفردة (hour، minute، second) كتعبيرات رقمية منفصلة. بالنسبة لوظيفة TimeValue function، يمكنك امرار مجموعة حروف كمعامل يحتوي على الوقت.
Sub ExampleTimerValue
Dim daDT as Date
Dim a1, b1, c1, a2, b2, c2 as String
a1 = "start time"
b1 = "end time"
c1 = "total time"
a2 = "8:34"
b2 = "18:12"
daDT = TimeValue(b2) - TimeValue(a2)
c2 = a1 & ": " & a2 & chr(13)
c2 = c2 & b1 & ": " & b2 & chr(13)
c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
Msgbox c2
نهاية البرنامج