Datum VBA formata

Ovaj će vodič pokazati kako oblikovati datume pomoću VBA.

Oblikujte datume u VBA

Postoje dvije metode za oblikovanje datuma pomoću VBA.

  1. Svojstvo NumberFormat ćelija / raspona - Za oblikovanje datuma pohranjenih u ćelijama
  2. Funkcija VBA Format - Za oblikovanje datuma u VBA (npr. Varijable)

Format broja - Datumi

Zadani format broja ćelije u Excelu je Općenito. Vrijednosti možete prikazati kao brojeve, tekst, datume, postotke ili valute promjenom formata broja. Svojstvo NumberFormat može se koristiti u VBA -u za postavljanje formata broja datuma u ćeliji ili rasponu.

Bilješka: Da biste vidjeli različite standardne formate datuma dostupne u Excelu, idite na Početna> Broj i vidjet ćete opcije kao što su Kratak datum, Dugi datum i Vrijeme.


Kratak spoj

Opcija oblikovanja broja kratkog datuma prikazuje datum u kratkom, numeričkom obliku.

Sljedeći će kôd postaviti svojstvo .NumberFormat ćelije A1 na Kratki datum:

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

Dugi spoj

Formatiranje brojeva s dugim datumom prikazuje datum u duljem, pisanom obliku. Sljedeći će kôd postaviti svojstvo .NumberFormat ćelije A1 na Dugi datum:

1 Raspon ("A1"). NumberFormat = "dddd, mmmm dd, gggg"

Prilagođeni datumi

Da biste vidjeli prilagođene kodove formata brojeva koje možete koristiti u VBA za oblikovanje datuma, idite na Početna> Broj i kliknite Pokretač dijaloških okvira. Odaberite karticu Broj i odaberite Prilagođeno.

Možete odabrati prilagođene ugrađene formate za svoj datum ili stvoriti vlastite formate datuma koje definiraju korisnici. Sljedeći će kôd postaviti svojstvo .NumberFormat ćelije A1 na ugrađeni prilagođeni format datuma:

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

Rezultat je:

Sljedeći će kôd postaviti svojstvo .NumberFormat ćelije A1 u korisnički definirani format datuma:

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

Rezultat je:

Pregledavanjem Excel-ovih unaprijed izgrađenih primjera možete saznati kako bi trebalo unijeti NumberFormate. Za više informacija pročitajte Microsoftovu dokumentaciju o formatima brojeva za datume.

Funkcija VBA formata

Kao što je gore spomenuto, metoda NumberFormat prikladna je za postavljanje format broja datuma pohranjenih u Excel ćelijama. U VBA -u možete koristiti funkciju oblikovanja za pretvaranje datuma u nizove s određenim oblikovanjem datuma.

Za oblikovanje datuma upotrijebili biste sljedeću sintaksu:

Format (String_Representation, NumberFormatCode) gdje:

String_Representation - tekstualni niz koji predstavlja datum.

NumberFormatCode - kôd formata broja koji određuje način prikaza datuma.

Sljedeći kôd pokazuje kako oblikovati tekstualni niz koji prikazuje datum kao dugački format datuma:

1 MsgBox format ("1/1/2010", "dddd, mmmm dd, gggg")

Rezultat je:

Uočite da funkcija oblikovanja koristi istu sintaksu oblikovanja datuma kao gornji format broja.

Sljedeći kôd pokazuje kako oblikovati tekstualni niz koji prikazuje datum kao srednji format datuma:

1 MsgBox format ("09. listopada 2012", "Srednji datum")

Rezultat je:

Sljedeći kôd prikazuje kako oblikovati tekstualni prikaz datuma kao korisnički definirani format:

1 MsgBox format ("09. listopada 2012", "dddd: dd/mm/ggg")

VBA Graditelj prilagođenih formata

Naš dodatak VBA: AutoMacro sadrži Graditelj prilagođenih formata za VBA Editor. To vam omogućuje da postavite prilagođene formate i odmah pregledate izlaz za željenu vrijednost:

Dodatak VBA sadrži brojne druge „Generatore koda“, opsežnu biblioteku kodova i niz drugih alata za kodiranje. To je vrhunski dodatak za svakoga tko se ozbiljno bavi VBA programiranjem!

Datum VBA formata u Accessu

Funkcija VBA Format Date radi potpuno isto u Access VBA kao i u Excel VBA.

12345678910 Funkcija GetDateFilter () Kao niz'stvorite niz za dobivanje informacija iz 2 polja datuma na obrascu u programu AccessZatamni strDateField kao nizAko je IsNull (Me.txtSDate) = Netočno TadaAko je IsNull (Me.txtEDate) = True Tada je Me.txtEDate = Me.txtSDateAko je strDateField2 = "" ZatimGetDateFilter = strDateField & "Između #" & Format (Me.txtSDate, "mm/dd/yyyy") & " # And #" & Format (Me.txtEDate, "mm/dd/yyyy") & " #"Završi akoZavrši akoZavršna funkcija

Vi ćete pomoći u razvoju web stranice, dijeljenje stranicu sa svojim prijateljima

wave wave wave wave wave