Ta vadnica bo pokazala, kako oblikovati datume z uporabo VBA.
Oblikujte datume v VBA
Obstajata dva načina za oblikovanje datumov z uporabo VBA.
- Lastnost NumberFormat celic / obsegov - za oblikovanje datumov, shranjenih v celicah
- Funkcija oblikovanja VBA - Za oblikovanje datumov v VBA (npr. Spremenljivke)
Format številke - Datumi
Privzeta oblika številke celice v Excelu je Splošno. Vrednosti lahko prikažete kot številke, besedilo, datume, odstotke ali valute tako, da spremenite obliko številke. Lastnost NumberFormat lahko uporabite v VBA za nastavitev oblike števila datumov v celici ali obsegu.
Opomba: Če si želite ogledati različne standardne oblike datumov, ki so na voljo v Excelu, pojdite na Domov> Številka in videli boste možnosti, kot so Kratek datum, Dolg datum in Ura.
Kratek zmenek
Možnost oblikovanja kratkega datuma prikazuje datum v kratki številčni obliki.
Naslednja koda bo nastavila lastnost .NumberFormat celice A1 na Kratek datum:
| 1 | Obseg ("A1"). NumberFormat = "mm/dd/llll" |
Dolg zmenek
Oblikovanje številk z dolgim datumom prikazuje datum v daljši pisni obliki. Naslednja koda bo nastavila lastnost .NumberFormat celice A1 na Long date:
| 1 | Obseg ("A1"). NumberFormat = "dddd, mmmm dd, llll" |
Datumi po meri
Če si želite ogledati kode formata številk po meri, ki jih lahko uporabite v VBA za oblikovanje datumov, pojdite na Domov> Številka in kliknite zaganjalnik pogovornih oken. Izberite zavihek Številka in izberite Po meri.
Izberete lahko vgrajene oblike po meri za svoj datum ali ustvarite lastne oblike datuma, ki jih določi uporabnik. Naslednja koda bo nastavila lastnost .NumberFormat celice A1 na vgrajeno obliko datuma po meri:
| 1 | Obseg ("A1"). NumberFormat = "mmm-yy" |
Rezultat je:
Naslednja koda bo nastavila lastnost .NumberFormat celice A1 v obliko datuma po meri, ki jo določi uporabnik:
| 1 | Obseg ("A1"). NumberFormat = "dddd-dd-mmm-yy" |
Rezultat je:
S pregledom vnaprej pripravljenih Excelovih primerov se lahko naučite, kako je treba vnesti formate NumberFormat. Za več informacij preberite Microsoftovo dokumentacijo o oblikah številk za datume.
Funkcija zapisa VBA
Kot je navedeno zgoraj, je metoda NumberFormat primerna za nastavitev oblike številk datumov, shranjenih v celicah Excel. V VBA lahko uporabite funkcijo oblikovanja za pretvorbo datumov v nize z določenim oblikovanjem datuma.
Za oblikovanje datumov bi uporabili naslednjo skladnjo:
Oblika (String_Representation, NumberFormatCode) kjer:
String_Representation - besedilni niz, ki predstavlja datum.
NumberFormatCode - koda oblike številke, ki določa način prikaza datuma.
Naslednja koda prikazuje, kako oblikovati predstavitev datumskega niza datuma v obliki dolgega datuma:
| 1 | MsgBox Format ("1/1/2010", "dddd, mmmm dd, llll") |
Rezultat je:
Upoštevajte, da funkcija oblikovanja uporablja isto sintakso oblikovanja datuma kot zgornji format NumberFormat.
Naslednja koda prikazuje, kako oblikovati predstavitev datumskega niza datuma kot srednjo obliko zapisa datuma:
| 1 | Format MsgBox ("09. oktober 2012", "Srednji datum") |
Rezultat je:
Naslednja koda prikazuje, kako oblikovati predstavitev datumskega niza datuma kot obliko, ki jo določi uporabnik:
| 1 | MsgBox Format ("09. oktober 2012", "dddd: dd/mm/yy") |
Ustvarjalnik oblik zapisa VBA po meri
Naš dodatek VBA: AutoMacro vsebuje graditelja oblik po meri za urejevalnik VBA. To vam omogoča nastavitev oblik po meri in predogled izhoda za želeno vrednost:
Dodatek VBA vsebuje številne druge »Generatorje kod«, obsežno knjižnico kod in izbor drugih orodij za kodiranje. To je vrhunski dodatek za vsakogar, ki se resno ukvarja s programiranjem VBA!
Datum oblike VBA v Accessu
Funkcija VBA Format Date deluje v programu Access VBA popolnoma enako kot v Excelu VBA.
| 12345678910 | Funkcija GetDateFilter () kot niz'ustvarite niz za pridobivanje informacij iz dveh datumskih polj na obrazcu v AccessuZatemni strDateField kot nizČe je IsNull (Me.txtSDate) = False PotemČe je IsNull (Me.txtEDate) = True, potem je Me.txtEDate = Me.txtSDateČe strDateField2 = "" PotemGetDateFilter = strDateField & "Med #" & Format (Me.txtSDate, "mm/dd/yyyy") & " # And #" & Format (Me.txtEDate, "mm/dd/yyyy") & " #"Konec ČeKonec ČeKončana funkcija |
