Funkce Format

Příklady

Použití funkce Format ve výrazu    Formát můžete použít všude tam, kde můžete použít výrazy. Můžete ho například použít v dotazu jako součást aliasu pole nebo ve vlastnosti Zdroj ovládacího prvku textového pole ve formuláři nebo sestavě. Následující příklady ukazují výraz, který můžete použít ve vlastnosti Filter sestavy k omezení výstupu na záznamy z předchozího týdne.

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

V tomto příkladu má zdroj záznamů sestavy pole s názvem Datum, které obsahuje datum, kdy byl každý záznam změněn a které se používá v sestavě. Když sestavu spustíte, její výsledky se vyfiltrují tak, aby zobrazovaly jenom ty záznamy, u kterých se týden pro hodnotu v poli Datum (Format([Date],"ww")) rovná předchozímu týdnu (Format(Now();"ww")-1).

Použití funkce Format v kódu jazyka VBA    

Tento příklad ukazuje různé způsoby použití funkce Format k formátování hodnot pomocí pojmenovaných i uživatelsky definovaných formátů. V případě oddělovače data (/), oddělovače času (:) a literálu do hodiny odpoledne závisí skutečný formátovaný výstup zobrazený systémem na nastavení národního prostředí počítače, na kterém je kód spuštěný. Při zobrazení časů a dat ve vývojovém prostředí se použije formát krátkého času a krátkého data národního prostředí kódu. Při zobrazení spuštěním kódu se použije krátký formát času a formát krátkého data národního prostředí systému, které se mohou lišit od národního prostředí kódu. V tomto příkladu se předpokládá americké anglické národní prostředí.

MyTime a MyDate se ve vývojovém prostředí zobrazují pomocí aktuálního systémového nastavení krátkého času a nastavení krátkého data.

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

Použití formátu s řetězci nulové délky

V aplikaci Microsoft Access verze 2.0 a starších verzích můžete funkci Format použít k vrácení jedné hodnoty pro Řetězec nulové délky a druhé pro hodnotu. Můžete například použít výraz formátu, například následující, s funkcí Format a vrátit odpovídající řetězcovou hodnotu z kódu:

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

V aplikaci Microsoft Access verze 97 a novější je nutné samostatně testovat případ null a pak vrátit odpovídající hodnotu na základě výsledku. Můžete například použít funkci IIf ve výrazu s funkcí Format , například následující:

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

Tato změna se použije pouze v případě, že použijete funkci Format k formátování řetězce závislého na tom, jestli se jedná o řetězec nulové délky nebo hodnotu Null. Další formátovací výrazy používané s funkcí Format nadále fungují stejně jako v předchozích verzích.

Pokud převedete databázi z aplikace Microsoft Access verze 2.0 a starší na Microsoft Access 2002 nebo novější, je nutné změnit kód, který se bude testovat samostatně pro případ null.