Olemme jo käyneet läpi muuttujia, tietotyyppejä ja vakioita VBA -tietotyypit - Muuttujat ja vakiot -oppaassa. Tässä opetusohjelmassa aiomme käsitellä muuttujan ilmoittamista päivämääränä.
VBA: ssa päivämäärän tietotyyppi tallennetaan desimaalina. Sekä päivämäärät että kellonajat voidaan tallentaa tähän tietotyyppiin. VBA -päivämäärän tietotyyppi voi tallentaa arvoja 1. tammikuuta 100 - 31. joulukuuta 9999.
VBA -päivämäärän muuttuja
Ilmoitat muuttujan päivämääräksi käyttämällä Dim -avainsanaa:
| 1 | Himmennä päivämäärä Yksi päivämääränä |
Sitten voit määrittää päivämäärän muuttujalle päivämäärän. Muuttujille määritettävät päivämäärät voidaan luoda useilla tavoilla:
Määritä muuttujaan tänään
Päivämäärätoiminto palauttaa tämän päivän päivämäärän:
| 123 | Dim dtTänäändtToday = Päivämäärä |
Määritä nyt muuttujaan
Nyt -toiminto palauttaa tämän päivän päivämäärän ja nykyisen ajan:
| 123 | Himmennä nytdNow = Nyt |
Määritä aika muuttujalle
Aikatoiminto palauttaa nykyisen ajan:
| 123 | Himmennä aikatTime = Aika |
Määritä päivämäärä muuttujalle DateSerialin avulla
DateSerial -funktio palauttaa päivämäärän syöttövuoden, kuukauden ja päivän perusteella:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Määritä aika muuttujalle TimeSerialin avulla
TimeSerial -toiminto palauttaa ajan syötetyn tunnin, minuutin ja sekunnin perusteella:
| 123 | Himmennä aikatsTime = TimeSerial (10, 10, 45) |
Sinun on lisättävä päivämäärät numeroon # tai ”, kun käytät niitä koodissasi, kuten alla on esitetty:
VBA DateValue -toiminto
VBA DateValue -toimintoa voidaan käyttää päivämäärän alustamiseen. Seuraavaa koodia voidaan käyttää päivämäärän alustamiseen VBA: ssa:
| 1 | MsgBox DateValue ("1.1.2010") |
VBA TimeValue -toiminto
| 1 | MsgBox TimeValue ("21:30:57") |
Esimerkki Excel VBA -päivämäärämuuttujasta
Tämä menettely osoittaa, kuinka luodaan päivämäärämuuttujia, määritetään niille arvot ja tulostetaan ne Excel -laskentataulukkoon:
| 12345678910111213 | AlailmoitusVariableAsADate ()Himmennä päivämäärä Yksi päivämääräHimmennä päivämäärä Kaksi päivämääräädateOne = #1/1/2019 #dateTwo = "1/2/2019"Alue ("A1"). Arvo = dateOneAlue ("A2"). Arvo = dateTwoEnd Sub |
Tulos on:
Voit oppia lisää päivämäärän toiminnoista tästä opetusohjelmasta.
VBA -päivämäärän muuttuja Accessissa
Päivämäärämuuttuja toimii täsmälleen samalla tavalla Access VBA: ssa kuin Excel VBA: ssa.
Tämä menettely osoittaa, kuinka luodaan päivämäärämuuttuja ja päivitetään kenttä käyttöoikeustaulukkoon, jossa on arvo.
| 12345 | AlailmoitusVariableAsADate ()Dim dtToimi päivämääränädtWork = #05.10.2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"End Sub |
