VBA formátum dátuma

Ez az oktatóanyag bemutatja a dátumok VBA használatával történő formázását.

Dátumok formázása VBA -ban

Két módszer létezik a dátumok VBA használatával történő formázására.

  1. A cellák / tartományok NumberFormat tulajdonsága - A cellákban tárolt dátumok formázása
  2. A VBA formátum funkció - A dátumok formázása a VBA -ban (pl. Változók)

NumberFormat - Dátumok

Az Excel cella alapértelmezett számformátuma az Általános. A számformátum megváltoztatásával számokat, szöveget, dátumokat, százalékokat vagy pénznemeket jeleníthet meg. A NumberFormat tulajdonság a VBA -ban használható a dátumok számformátumának beállítására egy cellában vagy tartományban.

Jegyzet: Az Excelben elérhető különböző szabványos dátumformátumok megtekintéséhez lépjen a Kezdőlap> Szám menüponthoz, és láthatja a rövid dátumot, a hosszú dátumot és az időt.


Rövid dátum

A Rövid dátumszám formázása opció a dátumot rövid, numerikus formátumban jeleníti meg.

A következő kód az A1 cella .NumberFormat tulajdonságát Rövid dátumra állítja:

1 Tartomány ("A1"). NumberFormat = "mm/dd/yyyy"

Hosszú randi

A hosszú dátumszám formázása hosszabb, írott formátumban jeleníti meg a dátumot. A következő kód az A1 cella .NumberFormat tulajdonságát hosszú dátumra állítja:

1 Tartomány ("A1"). NumberFormat = "dddd, mmmm dd, yyyy"

Egyedi dátumok

A VBA -ban a dátumok formázásához használható egyéni számformátumkódok megtekintéséhez lépjen a Kezdőlap> Szám menüpontra, és kattintson a Párbeszédpanel -indítóra. Válassza a Szám lapot, és válassza az Egyéni lehetőséget.

Kiválaszthatja az egyéni beépített formátumokat a dátumhoz, vagy létrehozhat saját felhasználó által meghatározott dátumformátumokat. A következő kód az A1 cella .NumberFormat tulajdonságát beépített egyéni dátumformátumra állítja be:

1 Tartomány ("A1"). NumberFormat = "mmm-yy"

Az eredmény:

A következő kód az A1 cella .NumberFormat tulajdonságát a felhasználó által meghatározott egyéni dátumformátumra állítja be:

1 Tartomány ("A1"). NumberFormat = "dddd-dd-mmm-yy"

Az eredmény:

Az Excel előre elkészített példáit áttekintve megtudhatja, hogyan kell megadni a NumberFormats formátumot. További információért olvassa el a Microsoft dokumentációját a dátumok számformátumáról.

VBA formátum funkció

Amint fentebb említettük, a NumberFormat módszer alkalmas az Excel cellákban tárolt dátumok számformátumának beállítására. A VBA -ban a Formátum funkció segítségével bizonyos dátumformátumú karakterláncokká alakíthatja a dátumokat.

A következő szintaxist használja a dátumok formázásához:

Formátum (String_Representation, NumberFormatCode) ahol:

String_Representation - a dátumot reprezentáló szöveges karakterlánc.

NumberFormatCode - a számformátum kódja, amely meghatározza a dátum megjelenítésének módját.

A következő kód bemutatja, hogyan kell a dátum szöveges karakterláncát hosszú dátumformátumként formázni:

1 MsgBox formátum ("1/1/2010", "dddd, mmmm dd, yyyy")

Az eredmény:

Vegye figyelembe, hogy a Formátum függvény ugyanazt a dátumformázási szintaxist használja, mint a fenti NumberFormat.

A következő kód bemutatja, hogyan kell a dátum szöveges karakterláncát középső dátumformátumként formázni:

1 MsgBox formátum ("2012. október 9.", "Közepes dátum")

Az eredmény:

A következő kód bemutatja, hogyan kell a dátum szöveges karakterláncát felhasználó által meghatározott formátumként formázni:

1 MsgBox formátum ("2012. október 09.", "dddd: dd/mm/yy")

VBA Custom Format Builder

VBA bővítményünk: Az AutoMacro egy egyéni formátumkészítőt tartalmaz a VBA szerkesztőhöz. Ez lehetővé teszi, hogy egyéni formátumokat állítson be, és azonnal megtekinthesse a kívánt érték kimenetét:

A VBA bővítmény számos más „kódgenerátort”, kiterjedt kódkönyvtárat és egyéb kódolóeszközöket tartalmaz. Ez a végső kiegészítő bárkinek, aki komolyan gondolja a VBA programozást!

VBA formátum dátuma az Accessben

A VBA Formátum dátuma funkció pontosan ugyanúgy működik az Access VBA -ban, mint az Excel VBA.

12345678910 Funkció GetDateFilter () karakterláncként'hozzon létre egy karakterláncot az Access űrlapján található két dátummezőből származó információk lekéréséhezDim strDateField karakterlánckéntHa IsNull (Me.txtSDate) = Hamis akkorHa IsNull (Me.txtEDate) = Igaz, akkor Me.txtEDate = Me.txtSDateHa strDateField2 = "" AkkorGetDateFilter = strDateField & "Between #" & Format (Me.txtSDate, "mm/dd/yyyy") & " # And #" & Format (Me.txtEDate, "mm/dd/yyyy") & " #"Vége HaVége HaVége funkció

Segít a fejlesztés a helyszínen, megosztva az oldalt a barátaiddal

wave wave wave wave wave