Omówiliśmy już, czym są zmienne, typy danych i stałe, w naszym samouczku Typy danych VBA - Zmienne i stałe. W tym samouczku omówimy, jak zadeklarować zmienną jako datę.
W VBA typ danych data jest przechowywany jako ułamek dziesiętny. W tym typie danych można przechowywać zarówno daty, jak i godziny. Typ danych Data VBA może przechowywać wartości z zakresu od 1 stycznia 100 do 31 grudnia 9999.
Zmienna daty VBA
Deklarujesz zmienną jako datę za pomocą słowa kluczowego Dim:
| 1 | Dim dateOne jako Date |
Następnie możesz przypisać datę do zmiennej daty. Istnieje wiele sposobów generowania dat, które można przypisać do zmiennych:
Przypisz dzisiaj do zmiennej
Funkcja Data zwróci dzisiejszą datę:
| 123 | Dim dtDzisiajdtDzisiaj = Data |
Przypisz teraz do zmiennej
Funkcja Now zwróci dzisiejszą datę i aktualny czas:
| 123 | Przyciemnij terazdTeraz = Teraz |
Przypisz czas do zmiennej
Funkcja czasu zwróci aktualny czas:
| 123 | Czas przyciemnieniatCzas = Czas |
Przypisz datę do zmiennej za pomocą DateSerial
Funkcja DateSerial zwróci datę na podstawie wprowadzonego roku, miesiąca i dnia:
| 123 | Dim dsDatedsData = DataSeria (2010, 11, 11) |
Przypisz czas do zmiennej za pomocą TimeSerial
Funkcja TimeSerial zwróci czas na podstawie wprowadzonej godziny, minuty i sekundy:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Musisz zawrzeć daty z # lub ” kiedy używasz ich w swoim kodzie, jak pokazano poniżej:
Funkcja VBA DateValue
Funkcja VBA DateValue może służyć do inicjowania daty. Poniższy kod może zostać użyty do zainicjowania daty w VBA:
| 1 | MsgBox DateValue("1.01.2010") |
Funkcja wartości czasu VBA
| 1 | MsgBox TimeValue("21:30:57") |
Przykład zmiennej daty Excel VBA
Ta procedura pokazuje, jak tworzyć zmienne daty, przypisywać im wartości i wyprowadzać je do arkusza programu Excel:
| 12345678910111213 | Podrzędna deklaracja zmiennejAsADate()Dim dateOne As DateWygaszona data Two As Datedata1 = #1/1/2019#data druga = "1/2/2019"Zakres("A1").Value = dateOneZakres("A2").Wartość = dataDrugaNapis końcowy |
Wynik to:
Więcej informacji o funkcjach daty znajdziesz w tym samouczku.
Zmienna daty VBA w programie Access
Zmienna Data działa dokładnie tak samo w Access VBA, jak w Excel VBA.
Ta procedura pokazuje, jak utworzyć zmienną daty i zaktualizować pole w tabeli dostępu o wartość.
| 12345 | Podrzędna deklaracja zmiennejAsADate()Dim dtWork As DatedtPraca = #05/10/2020#DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & "# WHERE JobNo = 6"Napis końcowy |
