VBA formāta datums

Šī apmācība parādīs, kā formatēt datumus, izmantojot VBA.

Formatēt datumus VBA

Ir divas metodes, kā formatēt datumus, izmantojot VBA.

  1. Šūnu / diapazonu rekvizīts NumberFormat - lai formatētu šūnās saglabātos datumus
  2. Funkcija VBA formāts - lai formatētu datumus VBA (piemēram, mainīgie)

NumberFormat - datumi

Šūnas noklusējuma skaitļa formāts programmā Excel ir Vispārīgs. Jūs varat parādīt vērtības kā skaitļus, tekstu, datumus, procentus vai valūtas, mainot skaitļu formātu. Rekvizītu NumberFormat var izmantot VBA, lai šūnā vai diapazonā iestatītu datumu skaitļu formātu.

Piezīme: Lai redzētu dažādus standarta datuma formātus, kas pieejami programmā Excel, dodieties uz Sākums> Skaitlis un redzēsit tādas iespējas kā Īss datums, Garš datums un Laiks.


Īss randiņš

Īsā datuma numura formatēšanas opcija parāda datumu īsā, skaitliskā formātā.

Šāds kods iestatīs šūnas A1 rekvizītu .NumberFormat uz Īss datums:

1 Diapazons ("A1"). NumberFormat = "mm/dd/gggg"

Garš randiņš

Gara datuma numura formatēšana parāda datumu garākā rakstiskā formātā. Šāds kods iestatīs šūnas A1 rekvizītu .NumberFormat uz Long date: Long date:

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

Pielāgoti datumi

Lai redzētu pielāgotos skaitļu formāta kodus, kurus varat izmantot VBA, lai formatētu datumus, dodieties uz Sākums> Numurs un noklikšķiniet uz dialoglodziņa palaidēja. Atlasiet cilni Cipars un izvēlieties Pielāgots.

Jūs varat izvēlēties datumam pielāgotus iebūvētos formātus vai izveidot savus lietotāja definētus datuma formātus. Šāds kods iestatīs šūnas A1 rekvizītu .NumberFormat uz iebūvētu pielāgotu datuma formātu:

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

Rezultāts ir šāds:

Šāds kods iestatīs šūnas A1 rekvizītu .NumberFormat uz lietotāja definētu pielāgotu datuma formātu:

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

Rezultāts ir šāds:

Pārskatot Excel iepriekš izveidotos piemērus, varat uzzināt, kā jāievada skaitļu formāti. Lai iegūtu papildinformāciju, izlasiet Microsoft dokumentāciju par datumu skaitļu formātiem.

VBA formāta funkcija

Kā minēts iepriekš, metode NumberFormat ir piemērota Excel šūnās saglabāto datumu skaitļu formāta iestatīšanai. VBA varat izmantot funkciju Format, lai datumus pārvērstu virknēs ar noteiktu datuma formatējumu.

Lai formatētu datumus, izmantojiet šādu sintaksi:

Formāts (String_Representation, NumberFormatCode), kur:

String_Representation - teksta virkne, kas attēlo datumu.

NumberFormatCode - skaitļa formāta kods, kas nosaka datuma parādīšanas veidu.

Šis kods parāda, kā formatēt datuma teksta virknes attēlojumu kā garu datuma formātu:

1 MsgBox formāts ("1/1/2010", "dddd, mmmm dd, yyyy")

Rezultāts ir šāds:

Ņemiet vērā, ka funkcija Format izmanto tādu pašu datuma formatēšanas sintaksi kā iepriekš minētā NumberFormat.

Šis kods parāda, kā datuma teksta virknes attēlojumu formatēt kā vidēja datuma formātu:

1 MsgBox formāts ("2012. gada 9. oktobris", "Vidējs datums")

Rezultāts ir šāds:

Šis kods parāda, kā datuma teksta virknes attēlojumu formatēt kā lietotāja definētu formātu:

1 MsgBox formāts ("2012. gada 9. oktobris", "dddd: dd/mm/ggg")

VBA pielāgoto formātu veidotājs

Mūsu VBA pievienojumprogramma: AutoMacro satur pielāgotu formātu veidotāju VBA redaktoram. Tas ļauj iestatīt pielāgotus formātus un nekavējoties priekšskatīt vēlamo vērtību.

VBA pievienojumprogrammā ir daudz citu “kodu ģeneratoru”, plaša kodu bibliotēka un citu kodēšanas rīku klāsts. Tā ir galvenā papildinājums ikvienam, kas nopietni nodarbojas ar VBA programmēšanu!

VBA formāta datums programmā Access

Funkcija VBA formāta datums Access VBA darbojas tieši tāpat kā programmā Excel VBA.

12345678910 Funkcija GetDateFilter () kā virkne'izveidojiet virkni, lai iegūtu informāciju no 2 datuma laukiem programmā AccessDim strDateField kā virkneJa IsNull (Me.txtSDate) = NepareiziJa IsNull (Me.txtEDate) = True, tad Me.txtEDate = Me.txtSDateJa strDateField2 = "" TadGetDateFilter = strDateField & "Starp #" & Format (Me.txtSDate, "mm/dd/gggg") & " # Un #" & Format (Me.txtEDate, "mm/dd/gggg") & " #"Beigas JaBeigas JaBeigu funkcija

Jums palīdzēs attīstību vietā, daloties lapu ar draugiem

wave wave wave wave wave