IBM Lotus Symphony


‏‎TimeSerial Function [Runtime]‎‏

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

الصيغة:

TimeSerial (hour, minute, second)

القيمة المرتجعة:

‏التاريخ‏

المعاملات:

hour: أي تعبير رقمي يشير الى الساعة من الوقت المستخدم لتحديد قيمة الوقت المتسلسلة. القيم الصحيحة: 0-23.

minute: أي تعبير رقمي يشير الى الدقائق من الوقت المستخدم لتحديد قيمة الوقت المتسلسلة. بصفة عامة، يمكنك استخدام قيم بين 0 و 59. لكن، يمكنك أيضا استخدام قيم توجد خارج هذا المدى، حيث يؤثر عدد الدقائق على قيمة الساعة.

second: أي تعبير رقمي يشير الى الثواني من الوقت المستخدم لتحديد قمية الوقت المتسلسلة. بصفة عامة، يمكنك استخدم قيم بين 0 و 59. لكن، يمكنك أيضا استخدام قيم توجد خارج هذا المدى، حيث يؤثر عدد الثواني على قيمة الدقائق.

أمثلة:

12, -5, 45 يناظر 11, 55, 45

12, 61, 45 يناظر 13, 2, 45

12, 20, -2 يناظر 12, 19, 58

12, 20, 63 بناظر 12, 21, 4

يمكنك استخدام الوظيفة TimeSerial function لتحويل أي وقت الى قيمة واحدة يمكنك استخدامها في حساب اختلافات التوقيت.

تقوم الوظيفة TimeSerial function بارجاع type Variant مع VarType 7 (Date). يتم تخزين هذه القيمة داخليا كرقم double-precision بين 0 و 0.9999999999. وعلى عكس الوظيفة DateSerial أو DateValue، حيث يتم احتساب قيم التاريخ المتسلسلة كأيام بالنسبة لتاريخ ثابت، يمكنك الحساب بالقيم التي يتم ارجاعها وبواسطة وظيفة TimeSerial، ولكن لا يمكنك تقييمهم.

بالوظيفة TimeValue function، يمكنك امرار مجموعة حروف كمعامل يحتوي على الوقت. بالنسبة لوظيفة TimeSerial function، يمكنك امرار معاملات فردية (hour، minute، second) كتعبيرات رقمية منفصلة.

أكواد الخطأ

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

مثال:

Sub ExampleTimeSerial

Dim dDate As Double, sDate As String

dDate = TimeSerial(8,30,15)

sDate = TimeSerial(8,30,15)

MsgBox dDate,64,"Time as a number"

MsgBox sDate,64,"Formatted time"

End Sub


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