IBM Lotus Symphony


‏‎DateSerial Function [Runtime]‎‏

يتم ارجاع قيمة التاريخ لسنة أو شهر أو يوم محدد.

الصيغة:

‏‎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) كتعبيرات رقمية منفصلة.

أكواد الخطأ

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

مثال:

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


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