الدالة Format

أمثلة

استخدام الدالة Format في تعبير    يمكنك استخدام التنسيق حيثما يمكنك استخدام التعبيرات. على سبيل المثال، يمكنك استخدامه في استعلام كجزء من اسم مستعار للحقل، أو في الخاصية Control Source لمربع نص في نموذج أو تقرير. تعرض الأمثلة التالية تعبيرا قد تستخدمه في خاصية Filter الخاصة بالتقرير للحد من الإخراج إلى سجلات من الأسبوع السابق.

Format([Date],"ww")=Format(Now(),"ww")-1

في هذا المثال، يحتوي مصدر سجلات التقرير على حقل يسمى Date، والذي يحتوي على التاريخ الذي تم فيه تعديل كل سجل معين، والذي يتم استخدامه في التقرير. عند تشغيل التقرير، تتم تصفية نتائجه لإظهار السجلات التي يكون فيها أسبوع القيمة في حقل التاريخ (Format([Date],"ww")) مساويا للأسبوع السابق (Format(Now(),"ww")-1).

استخدام الدالة Format في التعليمات البرمجية ل VBA    

يوضح هذا المثال استخدامات مختلفة لدالة Format لتنسيق القيم باستخدام كل من التنسيقات المسماة والتنسيقات المعرفة من قبل المستخدم. بالنسبة لفاصل التاريخ (/)، وفاصل الوقت (:)، والحرفية AM/ PM، يعتمد الإخراج المنسق الفعلي الذي يعرضه النظام على إعدادات الإعدادات المحلية للكمبيوتر الذي يتم تشغيل التعليمات البرمجية عليه. عند عرض الأوقات والتواريخ في بيئة التطوير، يتم استخدام تنسيق الوقت القصير وتنسيق التاريخ القصير لللغة البرمجية. عند عرضها عن طريق تشغيل التعليمات البرمجية، يتم استخدام تنسيق الوقت القصير وتنسيق التاريخ القصير للترجمة المحلية للنظام، والتي قد تختلف عن لغة التعليمات البرمجية. على سبيل المثال، يتم افتراض اللغة الإنجليزية الأمريكية.

يتم عرضMyTimeMyDate في بيئة التطوير باستخدام إعداد الوقت القصير للنظام الحالي وإعداد التاريخ القصير.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")
' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s")    ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")    ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' Returns "Wednesday,
    ' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23)    ' Returns "23".
' User-defined formats.
MyStr = Format(5459.4, "##,##0.00")    ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00")    ' Returns "334.90".
MyStr = Format(5, "0.00%")    ' Returns "500.00%".
MyStr = Format("HELLO", "<")    ' Returns "hello".
MyStr = Format("This is it", ">")    ' Returns "THIS IS IT".

استخدام التنسيق مع سلاسل ذات طول صفري

في الإصدار 2.0 من Microsoft Access والإصدارات السابقة، يمكنك استخدام الدالة Format لإرجاع قيمة واحدة سلسلة فارغة وأخرى لقيمة. على سبيل المثال، يمكنك استخدام تعبير تنسيق مثل ما يلي مع الدالة Format لإرجاع قيمة السلسلة المناسبة من التعليمات البرمجية:

Dim varX As Variant
Dim varStrX As Variant
' Assign some value to varStrX and pass to Format function.
varX = Format(varStrX, "@;ZLS;Null")

في إصدارات Microsoft Access 97 والإصدارات الأحدث، يجب عليك الاختبار بشكل منفصل لحالة Null ، ثم إرجاع القيمة المناسبة استنادا إلى النتيجة. على سبيل المثال، يمكنك استخدام الدالة IIf في تعبير مع الدالة Format مثل ما يلي:

varX = IIf(IsNull(varStrX),"Null", Format(varStrX, "@;ZLS"))

ينطبق هذا التغيير فقط عند استخدام الدالة Format لتنسيق سلسلة تعتمد على ما إذا كانت سلسلة ذات طول صفري أو قيمة Null. تستمر تعبيرات التنسيق الأخرى المستخدمة مع الدالة Format في العمل كما فعلت في الإصدارات السابقة.

إذا قمت بتحويل قاعدة بيانات من الإصدار 2.0 من Microsoft Access والإصدارات السابقة إلى Microsoft Access 2002 أو إصدار أحدث، يجب تغيير التعليمات البرمجية للاختبار بشكل منفصل لحالة Null.