Функція Format

Приклади

Використання функції Format у виразі    Функцію Format можна використовувати будь-де, де можна використовувати вирази. Наприклад, її можна використати в запиті у рамках псевдоніма поля, або у властивості Control Source текстового поля у формі чи звіті. У наведеному нижче прикладі показано вираз, який можна використати у властивості Filter звіту, щоб обмежити вивід до записів із попереднього тижня.

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

У цьому прикладі джерело записів звіту має поле з іменем "Date", що містить дату змінення кожного конкретного запису та використовується у звіті. Коли ви запускаєте звіт, його результати фільтруються, щоб відобразити тільки ті записи, у яких тиждень для значення в полі "Date" (Format([Date],"ww")) дорівнює попередньому тижню (Format(Now(),"ww")-1).

Використання функції Format у коді VBA    

У цьому прикладі показано приклади використання функції Format, щоб відформатувати значення за допомогою як іменованих, так і користувацьких форматів. Для роздільника компонентів дати (/), роздільника компонентів часу (:) і літералу AM/PM фактичний відформатований вивід, що відображається у системі, залежить від мовних параметрів комп’ютера, на якому запущено код. Коли час і дата відображаються в середовищі розробки, використовуються короткий формат часу та короткий формат дати локалізації коду. Коли вони відображаються запущеним кодом, то використовуються короткий формат часу й короткий формат дати локалізації системи, яка може відрізнятися від локалізації коду. У цьому прикладі використовується локалізація англійської мови (США).

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

Використання функції Format із рядками нульової довжини

У програмі 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-значення.