Excel VBA DateAdd İşlevi
DateAdd işlevi, VBA'da tarih ve saat işlevi altında kategorize edilir ve bu işlev, tarih olarak bir çıktı değerine sahiptir, girişi tarih biçimi olarak alır ve yeni bir tarih döndürmek için geçerli tarihe ekler, bu işlevin sözdizimi üç bağımsız değişken aralığı, sayı ve tarih.
DateAdd işlevini kullanarak, verilen tarihten günler, aylar ve yıllar ekleyip çıkarabiliriz. Excel'deki tarih, günlük işlerimizin bir parçasıdır; tarih, saat ve diğer önemli şeyler olmadan excel'de çalışamayız. Bir tarihi başka bir tarihe eklemek, bir tarihi diğerinden çıkarmak yaygın bir işlemdir. Normal çalışma sayfasında, sadece aritmetik işlemler yapıyoruz ve sonucu alıyoruz. VBA'da, işi yapacak olan DateAdd adlı fonksiyonumuz var.
Sözdizimi
Aralık: Aralık, eklemek veya çıkarmak istediğiniz değer türünden başka bir şey değildir. Örneğin, bir ay eklemek veya çıkarmak isteyip istemediğiniz, gün eklemek veya çıkarmak isteyip istemediğiniz, bir yıl eklemek veya çıkarmak isteyip istemediğiniz, çeyrek eklemek veya çıkarmak isteyip istemediğiniz, vb …
Aşağıda kodların ve açıklamaların bir listesi bulunmaktadır.
- Sayı: Tarihe eklemek veya çıkarmak istediğimiz ay, gün veya hafta sayısı (aralıkta verildiği gibi).
- Tarih: Aritmetik işlemi yaptığımız gerçek tarih değeri.
Örneğin, “14-Mart-2019” tarihiniz varsa ve bu tarihe iki gün eklemek istiyorsanız, aşağıdaki kodu kullanın:
DateAdd ("d," 2, "14-03-2019")
Yukarıdaki kodun sonucu: 16-03-2019
VBA'da Dateadd Fonksiyonu Nasıl Kullanılır?
Örnek 1 - Tarih Ekle
İşlemleri başlatmak için basit DateAdd fonksiyonunu uygulayalım. "14-03-2019" tarihiyle çalıştığınızı varsayın.
Adım 1: Bir makro adı oluşturarak alt prosedürü başlatın.
Adım 2: Değişkeni Tarih olarak tanımlayın.
Kod:
Sub DateAdd_Example1 () Dim Month As Date End Sub
Adım 3: Bu değişken için değer atayın.
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub
Adım 4: Başlangıç DateAdd formülü.
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd (End Sub
Adım 5: Yapmak istediğimiz operasyon nedir? Bugüne kadar bir gün istiyoruz. Dolayısıyla aralık " d" dir.
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", End Sub
Adım 6: Kaç gün eklememiz gerekiyor? 5 gün eklemem gerekiyor .
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, End Sub
7. Adım: Tarihimiz “ 14-03-2019. "
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") Son Sub
Adım 8: Değişkenin sonucunu VBA mesaj kutusunda gösterin.
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Bu kodu çalıştırırsam tarihi 19-03-2019 olarak almalıyım.
Sistem tarih formatımda "aa-gg-yyyy" olduğu için sonuç sistem tarih ayarlarına göre gösteriliyor.
Ancak, VBA FORMAT işlevini uygulayarak bunu değiştirebiliriz.
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox Biçimi (NewDate, "gg-aaa-yyyy") Son Alt
Şimdi sonuç şu " 19-Mart-2019 " şeklinde olmalıdır.
Örnek 2 - Ay Ekleme
Ay eklemek için kod aşağıdadır
Kod:
Sub DateAdd_Example2() 'To add months Dim NewDate As Date NewDate = DateAdd("m", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The result will be:
Example #3 - Add Years
To add years using DateAdd, use the below code.
Code:
Sub DateAdd_Example2() 'To add year Dim NewDate As Date NewDate = DateAdd("yyyy", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The Result will be:
Example #4 - Add Quarter
To add quarter below is the code.
Code:
Sub DateAdd_Example2() 'To add quarter Dim NewDate As Date NewDate = DateAdd("Q", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The Result will be:
Example #5 - Add Weekday
To add weekdays below is the code.
Code:
Sub DateAdd_Example2() 'To add weekdays Dim NewDate As Date NewDate = DateAdd("W", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The Result will be:
Example #6 - Add Week
To add week below is the code.
Code:
Sub DateAdd_Example2() 'To add Week Dim NewDate As Date NewDate = DateAdd("WW", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The Result will be:
Example #7 - Add Hour
To add the hour below is the code.
Code:
Sub DateAdd_Example2() 'To add hour Dim NewDate As Date NewDate = DateAdd("h", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy hh:mm:ss") End Sub
The Result will be
Example #8 - Subtract Date
In order to add, we have supplied positive numbers; to subtract, and we need to supply negative numbers that are all.
Verilen tarihten 3 ay çıkarmak için kod aşağıdadır.
Kod:
Sub DateAdd_Example3 () 'Saat Dim NewDate As Date eklemek için NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "gg-aaa-yyyy") End Sub
Bu kodun sonucu:
Bugüne 14 3 ay düşeriz inci , bir önceki yıla geri döner Mart 2019.
