Funkcija Format

Piemēri

Funkcijas Format lietošana izteiksmē    Varat izmantot formātu neatkarīgi no tā, kur varat izmantot izteiksmes. Piemēram, varat to izmantot vaicājumā kā daļu no lauka aizstājvārda vai formas vai atskaites tekstlodziņa rekvizītā Vadīklas avots . Tālāk sniegtajos piemēros ir redzama izteiksme, ko var izmantot atskaites rekvizītā Filter , lai ierobežotu izvadi ar ierakstiem no iepriekšējās nedēļas.

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

Šajā piemērā atskaites ierakstu avotam ir lauks ar nosaukumu Date, kas satur datumu, kad katrs konkrētais ieraksts tika modificēts, un kas tiek izmantots pārskatā. Palaižot atskaiti, tās rezultāti tiek filtrēti, lai rādītu tikai tos ierakstus, kuros nedēļas vērtība datuma laukā (formāts ([datums], "ww")) ir vienāds ar iepriekšējo nedēļu (formāts (tagad (), "ww")-1).

Funkcijas Format lietošana VBA kodā    

Šajā piemērā ir parādīti dažādi funkcijas Format lietojumi, lai formatētu vērtības, izmantojot gan nosauktos formātus, gan lietotāja definētos formātus. Datuma atdalītājs (/), laika atdalītājs (:) un AM/PM literālis, faktiski formatētā izvade, ko attēlo jūsu sistēma, ir atkarīga no tā datora lokalizācijas iestatījumiem, kurā darbojas šis kods. Kad izstrādes vidē tiek parādīti laiki un datumi, tiek izmantots koda lokalizācijas īsais laika formāts un saīsinātais datuma formāts. Ja tiek rādīts palaistais kods, tiek izmantots sistēmas lokalizācijas īsais laika formāts un saīsinātais datuma formāts, kas var atšķirties no koda lokalizācijas. Šajā piemērā tiek pieņemts, ka ASV ir angļu valodas lokalizācija.

MyTime un MyDate tiek parādīti izstrādes vidē, izmantojot pašreizējās sistēmas saīsinātā laika iestatījumu un saīsinātā datuma iestatījumu.

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

Formāta lietošana ar nulles garuma virknēm

Programmas Microsoft Access versijā 2,0 un jaunākās versijās varat izmantot funkciju Format , lai atgrieztu vienu vērtību nulles garuma virkne un citu vērtību. Piemēram, varat izmantot formāta izteiksmi, piemēram, tālāk norādītās funkcijas Format , lai atgrieztu attiecīgo virknes vērtību no koda:

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

Programmas Microsoft Access versijās 97 un jaunākās ir jāpārbauda atsevišķi Null gadījumam, pēc tam jāatgriež attiecīgā vērtība, pamatojoties uz rezultātu. Piemēram, varat izmantot funkciju IIf izteiksmē ar funkciju Format , piemēram, šādi:

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

Šīs izmaiņas tiek lietotas tikai tad, ja izmantojat funkciju Format , lai formatētu virkni atkarībā no tā, vai tā ir nulles garuma virkne vai vērtība Null. Citas formāta izteiksmes, kas tiek izmantotas funkcijā Format , turpina darboties tāpat kā iepriekšējās versijās.

Ja konvertējat datu bāzi no Microsoft Access versijas 2,0 un vecākām versijām uz Microsoft Access 2002 vai jaunākā versijā, ir jāmaina kods, lai atsevišķi pārbaudītu Null reģistru.