IBM Lotus Symphony
|
يتم ارجاع قيمة التاريخ لسنة أو شهر أو يوم محدد.
DateSerial (year, month, day)
التاريخ
Year: تعبير رقمي يشير الى سنة. كل القيم بين 0 و 99 يتم ترجمتها كالسنين 1900-1999. بالنسبة للسنين التي تقع خارج هذا المدى، يجب أن تقوم بادخال أربعة أرقام كاملة للسنة.
Month: تعبير رقمي يشير الى الشهر من السنة المحددة. المدى المقبول هو من 1-12.
Day: تعبير رقمي يشير الى اليوم من الشهر المحدد. المدى المقبول هو من 1-31. لم يتم ارجاع خطأ عند قيامك بادخال يوم غير بشهر ليس 31 يوما.
تقوم الوظيفة DateSerial function بارجاع عدد الأيام بين ديسمبر 30،1899 والتاريخ المحدد. يمكنك استخدام هذه الوظيفة لاحتساب الفرق بين التواريخ.
تقوم الوظيفة DateSerial function بارجاع نوع البيانات Variant مع VarType 7 (Date). داخليا، يتم تخزين هذه القيمة كقيمة Double value، لذلك عندما يكون التاريخ المحدد هو 1.1.1900، تكون القيمة المرتجعة هي 2. القيم السالبة تناظر التواريخ التي تسبق ديسمبر 30، 1899 (غير شاملة).
اذا تم تعريف تاريخ يقع خارج المدى المقبول، سيقوم Lotus® Symphony™ Basic بارجاع رسالة خطأ.
وعندما تقوم بتعريف وظيفة DateValue function كمجموعة حروف تحتوي على التاريخ، تقوم وظيفة DateSerial function بتقييم كل معاملات (year، month، day) كتعبيرات رقمية منفصلة.
Sub ExampleDateSerial
Dim lDate as Long
Dim sDate as String
lDate = DateSerial(1964, 4, 9)
sDate = DateSerial(1964, 4, 9)
msgbox lDate REM returns 23476
msgbox sDate REM returns 04/09/1964
end sub