Format funkcija

Pavyzdžiai

Funkcijos Format naudojimas reiškinyje    Formatą galite naudoti ten , kur galite naudoti reiškinius. Pavyzdžiui, jį galite naudoti užklausoje kaip lauko pseudonimo dalį arba formos arba ataskaitos teksto lauko ypatybėje Valdiklio šaltinis . Šiuose pavyzdžiuose parodyta išraiška, kurią galite naudoti ataskaitos ypatybėje Filter , kad apribotumėte išvestį iki ankstesnės savaitės įrašų.

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

Šiame pavyzdyje ataskaitos įrašo šaltinyje yra laukas, pavadintas Data, kuriame yra kiekvieno konkretaus įrašo modifikavimo data ir kuris naudojamas ataskaitoje. Vykdant ataskaitą, jos rezultatai filtruojami, kad būtų rodomi tik tie įrašai, kurių lauko Data reikšmės savaitė (Format([Date],"ww")) yra lygi ankstesnei savaitei (Format(Now(),"ww")-1).

Funkcijos Format naudojimas VBA kode    

Šiame pavyzdyje parodyta, kaip įvairiais būdais formatuoti reikšmes naudojant įvardytus formatus ir vartotojo apibrėžiamų formatų funkciją Format . Datos skyrikliui (/), laiko skyrikliui (:) ir AM/ PM literalui faktinė jūsų sistemos rodoma suformatuota išvestis priklauso nuo kompiuterio, kuriame veikia kodas, lokalės parametrų. Kai laikas ir datos rodomi kūrimo aplinkoje, naudojamas trumpasis laiko formatas ir trumpasis kodo lokalės datos formatas. Kai rodomas vykdant kodą, naudojamas trumpasis laiko formatas ir trumpasis sistemos lokalės datos formatas, kuris gali skirtis nuo kodo lokalės. Šiame pavyzdyje laikoma JAV anglų kalbos lokalė.

MyTime ir MyDate rodomi kūrimo aplinkoje naudojant dabartinį sistemos trumpo laiko parametrą ir trumpos datos parametrą.

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

Using Format with zero-length strings

"Microsoft Access" 2.0 ir ankstesnėse versijose galite naudoti funkciją Format , kad būtų pateikta viena nulinio ilgio eilutė reikšmė, o kita – reikšmei. Pavyzdžiui, galite naudoti formato išraišką, pvz., toliau pateiktą funkciją Format , kad grąžintumėte atitinkamą eilutės reikšmę iš kodo:

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 ir vėlesnėse versijose turite atskirai tikrinti Null atveju, tada grąžinti atitinkamą reikšmę pagal rezultatą. Pavyzdžiui, galite naudoti funkciją IIf reiškinyje su funkcija Format , pvz.:

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

Šis pakeitimas taikomas tik tada, kai naudojate funkciją Format norėdami formatuoti eilutę, priklausančią nuo to, ar tai nulinio ilgio eilutė, ar neapibrėžta reikšmė. Kitos formato išraiškos, naudojamos su funkcija Format , toliau veikia kaip ankstesnėse versijose.

Jei konvertuosite duomenų bazę iš "Microsoft Access" 2.0 ir ankstesnės versijos į "Microsoft Access 2002" arba naujesnę versiją, turėsite pakeisti kodą, kad būtų tikrinamas atskirai neapibrėžtos reikšmės (Null) atvejis.