VBA vormingu kuupäev

See õpetus näitab, kuidas kuupäevi VBA abil vormindada.

Kuupäevade vormindamine VBA -s

Kuupäevade vormindamiseks VBA abil on kaks meetodit.

  1. Lahtrite / vahemike atribuut NumberFormat - lahtritesse salvestatud kuupäevade vormindamiseks
  2. Funktsioon VBA vorming - kuupäevade vormindamiseks VBA -s (nt muutujad)

NumberFormat - kuupäevad

Lahtri vaikimisi vorming Excelis on Üldine. Arvuvormingu muutmisega saate väärtusi kuvada numbrite, teksti, kuupäevade, protsentide või valuutadena. Atribuuti NumberFormat saab VBA -s kasutada lahtris või vahemikus kuupäevade arvuvormingu määramiseks.

Märge: Excelis saadaolevate standardkuupäevavormingute nägemiseks avage Kodu> Number ja näete selliseid valikuid nagu Lühike kuupäev, Pikk kuupäev ja kellaaeg.


Lühike kuupäev

Valik Lühike kuupäeva numbri vormindamine kuvab kuupäeva lühikeses numbrilises vormingus.

Järgmine kood määrab lahtri A1 atribuudi .NumberFormat väärtuseks Lühike kuupäev:

1 Vahemik ("A1"). NumberFormat = "mm/dd/yyyy"

Pikk kuupäev

Pika kuupäeva numbri vormindamisel kuvatakse kuupäev pikemas, kirjalikus vormingus. Järgmine kood määrab lahtri A1 atribuudi .NumberFormat väärtuseks Pikk kuupäev:

1 Vahemik ("A1"). NumberFormat = "dddd, mmmm dd, yyyy"

Kohandatud kuupäevad

Kohandatud numbrivormingu koodide nägemiseks, mida saate VBA -s kuupäevade vormindamiseks kasutada, avage Avaleht> Number ja klõpsake dialoogiboksi käivitajat. Valige vahekaart Number ja valige Kohandatud.

Saate valida oma kuupäeva jaoks kohandatud sisseehitatud vormingud või luua oma kasutaja määratud kuupäevavormingud. Järgmine kood määrab lahtri A1 atribuudi .NumberFormat sisseehitatud kohandatud kuupäevavorminguks:

1 Vahemik ("A1"). NumberFormat = "mmm-yy"

Tulemuseks on:

Järgmine kood määrab lahtri A1 atribuudi .NumberFormat kasutaja määratud kohandatud kuupäevavorminguks:

1 Vahemik ("A1"). NumberFormat = "dddd-dd-mmm-yy"

Tulemuseks on:

Vaadates läbi Exceli eelvalmis näiteid, saate teada, kuidas NumberFormats tuleks sisestada. Lisateabe saamiseks lugege Microsofti dokumentatsiooni kuupäevade numbrivormingute kohta.

VBA vormingu funktsioon

Nagu eespool mainitud, on Exceli lahtritesse salvestatud kuupäevade arvuvormingu määramiseks sobiv meetod NumberFormat. VBA -s saate vormingufunktsiooni abil kuupäevad teisendada teatud kuupäevavorminguga stringideks.

Kuupäevade vormindamiseks kasutaksite järgmist süntaksi:

Vorming (String_Representation, NumberFormatCode), kus:

String_Representation - kuupäeva tähistav tekstistring.

NumberFormatCode - numbrivormingu kood, mis määrab kuupäeva kuvamise viisi.

Järgmine kood näitab, kuidas kuupäeva tekstistringi esitus vormindada pika kuupäeva vorminguks:

1 MsgBoxi vorming ("01.01.2010", "dddd, mmmm pp, aaaa")

Tulemuseks on:

Pange tähele, et vormindamisfunktsioon kasutab sama kuupäeva vormindamise süntaksi nagu ülaltoodud NumberFormat.

Järgmine kood näitab, kuidas vormindada kuupäeva tekstistringi esitus keskmise kuupäeva vorminguna:

1 MsgBoxi vorming ("9. oktoober 2012", "Keskmine kuupäev")

Tulemuseks on:

Järgmine kood näitab, kuidas vormistada kuupäeva tekstistringi esitus kasutaja määratud vormingus:

1 MsgBoxi vorming ("9. oktoober 2012", "dddd: dd/mm/yy")

VBA kohandatud vormingu koostaja

Meie VBA lisandmoodul: AutoMacro sisaldab VBA redaktori jaoks kohandatud vormingu koostajat. See võimaldab teil määrata kohandatud vorminguid ja soovitud väärtuse väljundi kohest eelvaadet:

VBA lisandmoodul sisaldab arvukalt teisi „koodigeneraatoreid”, ulatuslikku kooditeeki ja valikut muid kodeerimisvahendeid. See on ülim lisandmoodul kõigile, kes tõsiselt tegelevad VBA programmeerimisega!

VBA vormingu kuupäev Accessis

Funktsioon VBA vormingu kuupäev töötab Access VBA -s täpselt samamoodi nagu Excel VBA -s.

12345678910 Funktsioon GetDateFilter () stringina'looge string, et saada teavet Accessi vormi kahe kuupäevavälja kohtaDim strDateField stringinaKui IsNull (Me.txtSDate) = Vale siisKui IsNull (Me.txtEDate) = Tõsi, siis Me.txtEDate = Me.txtSDateKui strDateField2 = "" SiisGetDateFilter = strDateField & "Between #" & Format (Me.txtSDate, "mm/dd/yyyy") & " # And #" & Format (Me.txtEDate, "mm/dd/yyyy") & " #"Lõpp KuiLõpp KuiLõppfunktsioon

Te aitate arengu ala, jagades leht oma sõpradega

wave wave wave wave wave