IBM Lotus Symphony


‏‎TimeValue Function [Runtime]‎‏

يتم احتساب قيمة تسلسل الوقت من الساعة والدقائق والثواني المحددة - المعاملات التي تم امرارها كمجموعة حروف - التي تمثل الوقت في قيمة رقيمة واحدة. يمكن استخدام هذه القائمة لاحتساب الفرق بين الوقت.

الصيغة:

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، يمكنك امرار مجموعة حروف كمعامل يحتوي على الوقت.

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

13 عدم تطابق النوع

مثال:

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

نهاية البرنامج


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية