Функция Format

Примери

Използване на функцията Format в израз    Можете да използвате Формат навсякъде, където можете да използвате изрази. Можете например да го използвате в заявка като част от псевдоним на поле или в свойството Източник за контролата на текстово поле във формуляр или отчет. Следващите примери показват израз, който може да използвате в свойството Filter на отчет, за да ограничите резултата до записите от предишната седмица.

Format([Дата];"ww")=Format(Now();"ww")-1

В този пример източникът на записи на отчета има поле с име "Дата", което съдържа датата, на която е променен всеки конкретен запис и което се използва в отчета. Когато изпълните отчета, резултатите от него се филтрират така, че да показват само записите, за които седмицата за стойността в полето "Дата" (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".

Използване на формат с низове с нулева дължина

В 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")

Във версии 97 и по-нови на Microsoft Access трябва да тествате отделно за случая Null , след което да върнете подходящата стойност въз основа на резултата. Например можете да използвате функцията IIf в израз с функцията Format , като например следното:

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

Тази промяна се прилага само когато използвате функцията Format , за да форматирате низ, зависим от това дали е низ с нулева дължина, или стойност Null. Другите изрази за форматиране, използвани с функцията Format , продължават да работят, както в предишните версии.

Ако преобразувате база данни от Microsoft Access версия 2.0 и по-стара версия в Microsoft Access 2002 или по-нова версия, трябва да промените кода, за да тествате отделно за случая Null.