הפונקציה Format

דוגמאות

שימוש בפונקציה Format בביטוי    באפשרותך להשתמש בתבנית בכל מקום שבו ניתן להשתמש בביטויים. לדוגמה, באפשרותך להשתמש בה בשאילתה כחלק מכינוי שדה, או במאפיין מקור פקד של תיבת טקסט בטופס או בדוח. הדוגמאות הבאות מציגות ביטוי שייתכן שתשתמש בו במאפיין מסנן של דוח כדי להגביל את הפלט לרשומות מהשבוע הקודם.

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

בדוגמה זו, מקור הרשומה של הדוח כולל שדה בשם Date, המכיל את התאריך שבו כל רשומה מסוימת שונתה, שבהם נעשה שימוש בדוח. בעת הפעלת הדוח, התוצאות שלו מסוננים כדי להציג רק את הרשומות שבהן השבוע עבור הערך בשדה תאריך (Format([Date],"ww")) שווה לשבוע הקודם (Format(Now(),"ww")-1).

שימוש בפונקציה Format בקוד VBA    

דוגמה זו מציגה שימושים שונים של הפונקציה Format כדי לעצב ערכים באמצעות תבניות בעלות שם ותבניות המוגדרות על-ידי המשתמש. עבור מפריד התאריכים (/), מפריד הזמן (:) ו- AM/ PM literal, הפלט המעוצב בפועל המוצג על-ידי המערכת תלוי בהגדרות האזור של המחשב שבו פועל הקוד. כאשר שעות ותאריכים מוצגים בסביבת הפיתוח, נעשה שימוש בתבנית השעה הקצרה ובתבנית התאריך הקצרה של אזור הקוד. כאשר הם מוצגים על-ידי הפעלת קוד, נעשה שימוש בתבנית השעה הקצרה ובתבנית התאריך הקצרה של אזור המערכת, שעשויה להיות שונה באזור הקוד. עבור דוגמה זו, ההנחה היא כי האזור באנגלית (ארה"ב).

MyTime תאריכים MyDate סביבת הפיתוח תוך שימוש בהגדרת זמן קצר של המערכת הנוכחית והגדרת תאריך קצרה.

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".

שימוש בתבנית עם מחרוזות באורך אפס

ב- Microsoft Access גירסה 2.0 וגירסאות קודמות, ניתן להשתמש בפונקציה 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 ממשיכים לפעול כפי שהיו בגירסאות קודמות.

אם אתה ממיר מסד נתונים מ- Microsoft Access גירסה 2.0 וגירסאות קודמות ל- Microsoft Access 2002 ואילך, עליך לשנות את הקוד כדי לבדוק בנפרד את הרישיות Null.