Funkcja Format

Przykłady

Używanie funkcji Format w wyrażeniu    Formatuj można używać wszędzie tam, gdzie można używać wyrażeń. Można go na przykład użyć w zapytaniu jako części aliasu pola lub we właściwości Źródło kontrolki pola tekstowego w formularzu lub raporcie. W poniższych przykładach pokazano wyrażenie, którego można użyć we właściwości Filter raportu, aby ograniczyć dane wyjściowe do rekordów z poprzedniego tygodnia.

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

W tym przykładzie źródło rekordów raportu zawiera pole o nazwie Data, które zawiera datę modyfikacji każdego konkretnego rekordu i używane w raporcie. Po uruchomieniu raportu jego wyniki są filtrowane w celu pokazania tylko tych rekordów, w których tydzień wartości w polu Data (Format([Data];"ww")) jest równy poprzedniemu tydzieńowi (Format(Now(),"ww")-1).

Używanie funkcji Format w kodzie VBA    

W tym przykładzie przedstawiono różne zastosowania funkcji Format do formatowania wartości przy użyciu zarówno formatów nazwanych, jak i formatów zdefiniowanych przez użytkownika. W przypadku separatora daty (/), separatora godziny (:) i literału AM/PM rzeczywiste sformatowane dane wyjściowe wyświetlane przez system zależą od ustawień regionalnych komputera, na którym działa kod. Gdy godziny i daty są wyświetlane w środowisku deweloperskim, używany jest format krótkiego i krótkiego formatu daty ustawień regionalnych kodu. Podczas wyświetlania przez uruchomienie kodu używane są format krótkiego czasu i format daty krótkiej ustawień regionalnych systemu, które mogą różnić się od ustawień regionalnych kodu. W tym przykładzie przyjęto ustawienia regionalne języka angielskiego (Stany Zjednoczone).

MyTime i MyDate są wyświetlane w środowisku deweloperskim przy użyciu bieżącego ustawienia krótkiego czasu systemu i daty krótkiej.

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

Używanie formatu z ciągami znaków o zerowej długości

W programie Microsoft Access w wersji 2.0 lub starszej można użyć funkcji Format , aby zwrócić jedną wartość dla ciąg znaków o zerowej długości, a drugą dla wartości. Możesz na przykład użyć wyrażenia formatu, takiego jak poniższe z funkcją Format, aby zwrócić odpowiednią wartość ciągu z kodu:

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

W programie Microsoft Access w wersji 97 lub nowszej należy oddzielnie sprawdzić wielkość liter null , a następnie zwrócić odpowiednią wartość na podstawie wyniku. Funkcji IIf można na przykład użyć w wyrażeniu z funkcją Format , na przykład:

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

Ta zmiana ma zastosowanie tylko wtedy, gdy za pomocą funkcji Format sformatujesz ciąg w zależności od tego, czy jest to ciąg o zerowej długości, czy wartość Null. Inne wyrażenia formatu używane z funkcją Format nadal działają tak samo jak w poprzednich wersjach.

Jeśli przekonwertujesz bazę danych z programu Microsoft Access w wersji 2.0 i wcześniejszej na program Microsoft Access 2002 lub nowszą, musisz zmienić kod, aby testować oddzielnie wielkość liter Null.