TarihEkle Açıklama
VBA DateAdd İşlevi, Tarihlere veya Saatlere gün, ay, yıl, saat, çeyrek vb. eklemenize (veya çıkarmanıza) olanak tanır.
Basit DateAdd Örnekleri
İşte basit bir DateAdd örneği:
| 123 | Alt TarihAdd_Day()MsgBox DateAdd("d", 20, #4/1/2021#)Alt Bitiş |
Bu kod, 4/1/2021 tarihine 20 gün ("d" ile gösterilir) ekleyecektir:
Bunun yerine, 4/1/2021 tarihine 20 ay eklemek için Aralık argümanını “d” yerine “m” olarak değiştirebiliriz:
| 123 | Alt TarihAdd_Month()MsgBox DateAdd("m", 20, #4/1/2021#)Alt Bitiş |
Tarihi bir mesaj kutusunda görüntülemek yerine, onu bir değişkene atayabiliriz:
| 123456 | Alt DateAdd_Day2()Tarih olarak karart dtdt = DateAdd("d", 20, #4/1/2021#)MsgBox dtAlt Bitiş |
Tarih Ekle Sözdizimi
VBA Düzenleyicide, DateAdd İşlevinin sözdizimini görmek için “DateAdd(” yazabilirsiniz:
DateAdd işlevi 3 bağımsız değişken içerir:
Aralık: Zaman birimi (Günler, Aylar, Yıllar, vb.). Dize olarak girin. (ör. Ay için “m”)
| Ayar | Açıklama |
|---|---|
| yyyy | Yıl |
| Q | Çeyrek |
| m | Ay |
| y | Yılın Günü |
| NS | Gün |
| w | Hafta içi |
| ww | Hafta |
| H | Saat |
| n | Dakika |
| s | İkinci |
Sayı: Eklenecek zaman birimlerinin sayısını temsil eden sayısal değer. (ör. 20 birim eklemek için 20)
Tarih: Başlangıç tarihi. Sonraki bölüme bakın.
VBA Programlama | Code Generator sizin için çalışıyor!
Excel VBA DateAdd İşlevi Örnekleri
Referans Tarihleri
Başlamak için, VBA DateAdd İşlevini kullanarak tarihlere başvurmanın farklı yollarını göstereceğiz.
Bu DateAdd işlevlerinin her biri aynı sonucu verir:
| 123456789 | Alt DateAdd_ReferenceDates()MsgBox DateAdd("m", 2, #4/1/2021#)MsgBox DateAdd("m", 2, DateSerial(2021, 4, 1))MsgBox DateAdd("m", 2, DateValue("1 Nisan 2022"))Alt Bitiş |
Veya tarih içeren bir hücreye başvurabilirsiniz:
| 12345 | Alt DateAdd_ReferenceDates_Cell()MsgBox DateAdd("m", 2, Range("C2").Value)Alt Bitiş |
Veya bir tarih değişkeni oluşturun ve referans verin:
| 12345678 | Alt DateAdd_Variable()Dim dt As Tarihdt = #4/1/2021#MsgBox DateAdd("m", 2, dt)Alt Bitiş |
Tarih Ekle veya Çıkar
Bir tarihe nasıl ekleyeceğinizi zaten gösterdik:
| 123456 | Alt DateAdd_Day2()Tarih olarak karart dtdt = DateAdd("d", 20, #4/1/2021#)MsgBox dtAlt Bitiş |
Negatif bir sayı kullanarak tarihlerden çıkarabilirsiniz (ör. 20 yerine -20):
| 123456 | Alt TarihAdd_Day()Tarih olarak karart dtdt = DateAdd("d", -20, #4/1/2021#)MsgBox dtAlt Bitiş |
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
Farklı Zaman Birimleri Ekleme
yıllar
| 123 | Alt TarihAdd_Years()MsgBox DateAdd("yyyy", 4, #4/1/2021#)Alt Bitiş |
Çeyrek
| 123 | Alt DateAdd_Quarters()MsgBox DateAdd("q", 2, #4/1/2021#)Alt Bitiş |
Ay
| 123 | Alt DateAdd_Months()MsgBox DateAdd("m", 2, #4/1/2021#)Alt Bitiş |
Yılın Günü
| 123 | Sub DateAdd_DaysofYear()MsgBox DateAdd("y", 2, #4/1/2021#)Alt Bitiş |
Gün
| 123 | Alt DateAdd_Days3()MsgBox DateAdd("d", 2, #4/1/2021#)Alt Bitiş |
Hafta içi
| 123 | Sub DateAdd_Weekdays()MsgBox DateAdd("w", 2, #4/1/2021#)Alt Bitiş |
Hafta
| 123 | Alt DateAdd_Weeks()MsgBox DateAdd("ww", 2, #4/1/2021#)Alt Bitiş |
VBA Programlama | Code Generator sizin için çalışıyor!
Bugüne Ekle
Bu örnekler, Tarih İşlevini kullanarak bugüne zaman birimleri ekleyecektir.
| 123456789 | Alt TarihAdd_Year_Test()Dim dtToday As DateDim dtSonra Tarih OlarakdtToday = TarihdtLater = DateAdd("yyyy", 1, dtToday)MsgBox "Bir yıl sonra" & dtLaterAlt Bitiş |
| 123 | Alt DateAdd_Quarter_Test()MsgBox "2 çeyrek sonra " & DateAdd("q", 2, Date)Alt Bitiş |
Zaman Toplama ve Çıkarma
DateAdd işlevi, Times ile de çalışır. Bir zamana zaman ekleme (veya çıkarma) için birkaç örnek:
Saat
Bu örnek, bir süreye 2 saat ekleyecektir:
| 123 | Alt TarihAdd_Hour()MsgBox DateAdd("h", 2, #4/1/2021 6:00:00#)Alt Bitiş |
Dakika
Bu örnek, Geçerli Saat'ten 120 dakika çıkaracaktır:
| 123 | Alt DateAdd_Minute_Subtract()MsgBox DateAdd("n", -120, Şimdi)Alt Bitiş |
İkinci
| 123 | Sub DateAdd_Second()MsgBox DateAdd("s", 2, #4/1/2021 6:00:00#)Alt Bitiş |
Biçimlendirme Tarihleri
Excel'de, Kullanıcı Formlarında veya İleti Kutularında tarihler (veya saatler) görüntülendiğinde, Biçim İşlevini kullanarak tarihlerin nasıl görüntüleneceğini belirtmelisiniz. Aşağıya birkaç örnek ekledik:
| 123456789101112131415161718 | Alt BiçimlendirmeDatesTimes()'Geçerli Tarih ve Saati döndürürdt = Şimdi()'eski. 07/02/2021Aralık("B2") = Format(dt, "aa/gg/yyyy")'eski. 2 Temmuz 2022Aralık("B3") = Format(dt, "mmmm d, yyyy")'eski. 2 Temmuz 2022 09:10Aralık("B4") = Format(dt, "aa/gg/yyyy ss:dd")'eski. 7.2.21 09:10Aralık("B5") = Format(dt, "m.d.yy s:dd ÖÖ/ÖS")Alt Bitiş |
