Bu eğitim, VBA'da bugünün tarihini nasıl alacağınızı gösterecektir.
Bugünün tarihini VBA kodunda, yani VBA'yı kullanarak elde etmenin birkaç yolu vardır. Tarih() işlev veya VBA Şimdi() fonksiyonlar.
Tarih() işlevi
NS Tarih() işlevi, bugünün tarihini bir değişkene atamamızı ve ardından bugünün tarihini görmek için VBE Düzenleyicisi'ndeki hemen pencerede tarihi görüntülememizi sağlar.
123 | Dim dtToday as DatedtToday = Tarih()Debug.Print dtToday |
Alternatif olarak, tarihi bir mesaj kutusunda görüntüleyebiliriz.
12345 | Alt TestTarihiDim dtToday as DatedtToday = Tarih()Msgbox "Bugünün tarihi" & dtTodayAlt Bitiş |
Şimdi() İşlev
NS Şimdi() İşlev, tarih işleviyle aynı şekilde çalışır, ancak zamanı içerir.
12345 | Alt TestTarihi()Dim dtToday As DatedtToday = Şimdi()MsgBox "Bugünün tarihi " & dtTodayAlt Bitiş |
VBA ile Tarihleri Biçimlendirme
her ikisinde de Tarih() ve Şimdi() işlevler, tarih, bilgisayarımızdaki ayarlar tarafından belirlenen varsayılan bir tarzda biçimlendirilir. Bu biçimlendirmeyi VBA kullanarak özelleştirebiliriz Biçim işlev. format işlevi bir dizge döndüreceğinden, bir SİCİM değişken yerine bir TARİH değişken.
12345 | Alt TestTarihi()Dim dtToday As StringdtToday = Biçim (Tarih, "gg mmmm yyyy")MsgBox "Bugünün tarihi " & dtTodayAlt Bitiş |
ayrıca biçimlendirebiliriz Şimdi() işlevi, zaman bölümünü özelleştirilmiş bir biçimde dahil eder.
12345 | Alt FormatNow()Dim dtToday As StringdtToday = Format(Şimdi(), "gg mmmm yy ss:dd:ss am/pm")MsgBox dtBugünAlt Bitiş |
2 Tarihi VBA ile Karşılaştırma
Bugünün tarihini farklı bir tarihle karşılaştırmak için Tarih işlevini de kullanabiliriz - bir etkinliğe kaç gün kaldığını hesaplamak isteyebiliriz! Bunu VBA kullanarak yapabiliriz TarihDif() bir sayı döndüren işlev. Bu nedenle bir ilan verebilirizTAM SAYI döndürülen değeri saklamak için değişken.
123456789 | Alt TestDateDiff()Dim dtToday As DateDim dtSomeDay As DateTamsayı Olarak Dim iDaysdtToday = TarihdtSomeDay = "05/06/2021"iDays = DateDiff("d", dtToday, dtSomeDay)MsgBox "2 tarih arasında " & iDays & " gün var"Alt Bitiş |
Tarihler sayı olarak saklandığından, aynı cevabı elde etmek için ikinci tarihi de birinciden eksiltebiliriz.
1 | iDays = dtToday - dtSomeDay |