A VBA adattípusok - változók és állandók bemutatónkban már áttekintettük, hogy milyen változók, adattípusok és állandók vannak. Ebben az oktatóanyagban kitérünk arra, hogyan lehet egy változót dátumként deklarálni.
A VBA -ban a dátum adattípust decimális formában tárolja. Ebben az adattípusban dátumok és időpontok is tárolhatók. A VBA dátum adattípus 100. január 1. és 9999. december 31. közötti értékeket tárolhat.
VBA dátumváltozó
A változót dátumként deklarálja a Dim kulcsszó használatával:
| 1 | Egy dátum elhalványítása |
Ezután hozzárendelhet egy dátumot a dátum változóhoz. A változókhoz rendelt dátumok létrehozásának számos módja van:
A mai nap hozzárendelése a változóhoz
A Dátum funkció a mai dátumot adja vissza:
| 123 | Dim dtMadtToday = Dátum |
Hozzárendelés most a változóhoz
A Most funkció visszaadja a mai dátumot és az aktuális időt:
| 123 | Dim dNowdNow = Most |
Idő hozzárendelése a változóhoz
Az Időfunkció visszaadja az aktuális időt:
| 123 | Dim tTimetTime = Idő |
Dátum hozzárendelése a változóhoz a DateSerial segítségével
A DateSerial függvény egy dátumot ad vissza a beviteli év, hónap és nap alapján:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Időt rendelhet a változóhoz a TimeSerial segítségével
A TimeSerial funkció visszaad egy időt, a bemeneti óra, perc és másodperc alapján:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Ha a kódban használja, a dátumokat a # vagy a „karakterhez kell csatolni, az alábbiak szerint:
VBA DateValue függvény
A VBA DateValue függvény használható dátum inicializálására. A következő kóddal lehet inicializálni egy dátumot a VBA -ban:
| 1 | MsgBox DateValue ("2010.01.01.") |
VBA TimeValue függvény
| 1 | MsgBox TimeValue ("21:30:57") |
Példa Excel VBA dátumváltozóra
Ez az eljárás bemutatja, hogyan lehet dátumváltozókat létrehozni, értékeket hozzárendelni és Excel -munkalapra kiadni:
| 12345678910111213 | AlnyilatkozatVariableAsADate ()Dátum halványítása Egy dátumkéntDátum halványításaKettő dátumkéntdateOne = #1/1/2019 #dateTwo = "2019.02.02"Tartomány ("A1"). Érték = dateOneTartomány ("A2"). Érték = dateTwoEnd Sub |
Az eredmény:
Ebben az oktatóanyagban többet megtudhat a dátumfunkciókról.
VBA dátumváltozó a hozzáférésben
A dátumváltozó pontosan ugyanúgy működik az Access VBA -ban, mint az Excel VBA -ban.
Ez az eljárás bemutatja, hogyan hozhat létre dátumváltozót, és frissíthet egy mezőt egy hozzáférési táblában az értékkel.
| 12345 | RészdeklarációVariableAsADate ()Dim dtWork As DatedtWork = #2020.10.05. #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"End Sub |
