Fungsi VBA DateAdd

Fungsi Excel VBA DateAdd

Fungsi DateAdd dikategorikan di bawah fungsi tanggal dan waktu di VBA dan fungsi ini memiliki nilai keluaran sebagai tanggal, ia mengambil masukan sebagai format tanggal dan menambahkannya ke tanggal saat ini untuk mengembalikan tanggal baru, sintaks untuk fungsi ini mengambil tiga interval argumen, nomor dan tanggal.

Menggunakan fungsi DateAdd kita dapat menambah dan mengurangi hari, bulan, dan tahun dari tanggal tertentu. Tanggal di excel adalah bagian tak terpisahkan dari pekerjaan kita sehari-hari, kita tidak bisa bekerja di excel tanpa tanggal, waktu, dan hal-hal penting lainnya. Menambahkan satu tanggal ke tanggal lain, mengurangi satu tanggal dari tanggal lain adalah proses yang umum. Di lembar kerja biasa, kita cukup melakukan operasi aritmatika dan mendapatkan hasilnya. Di VBA kami memiliki fungsi yang disebut DateAdd yang akan melakukan pekerjaan itu.

Sintaksis

Interval: Interval tidak lain adalah jenis nilai yang ingin Anda tambahkan atau kurangi. Misalnya, apakah Anda ingin menambah atau mengurangi satu bulan, apakah Anda ingin menambah atau mengurangi hari, apakah Anda ingin menambah atau mengurangi satu tahun, apakah Anda ingin menambah atau mengurangi seperempat, dll…

Di bawah ini adalah daftar kode dan deskripsi.

  • Angka: Jumlah bulan, hari, atau minggu (seperti yang diberikan dalam interval) yang ingin kita tambahkan atau kurangi ke tanggal.
  • Tanggal: Nilai tanggal aktual yang kita lakukan dalam operasi aritmatika.

Misalnya, jika Anda memiliki tanggal "14-Mar-2019" dan Anda ingin menambahkan 2 hari ke tanggal tersebut gunakan kode di bawah ini:

DateAdd ("d", 2, "14-03-2019")

Hasil dari kode diatas adalah: 16-03-2019

Bagaimana Cara Menggunakan Fungsi Dateadd di VBA?

Anda dapat mengunduh Template Excel DateAdd VBA ini di sini - Template Excel DateAdd VBA

Contoh # 1 - Tambahkan Tanggal

Untuk memulai proses, mari terapkan fungsi DateAdd sederhana. Asumsikan Anda bekerja dengan tanggal "14-03-2019".

Langkah 1: Mulai subprocedure dengan membuat nama makro.

Langkah 2: Tentukan variabel sebagai Tanggal.

Kode:

 Sub DateAdd_Example1 () Redup Bulan Sebagai Tanggal Akhir Tanggal 

Langkah 3: Untuk menetapkan nilai variabel ini.

Kode:

 Sub DateAdd_Example1 () Redup NewDate As Date NewDate = End Sub 

Langkah 4: Mulai rumus DateAdd .

Kode:

 Sub DateAdd_Example1 () Redup NewDate As Date NewDate = DateAdd (End Sub 

Langkah 5: Operasi apa yang ingin kami lakukan. Kami ingin hari untuk kencan. Jadi intervalnya adalah " d ".

Kode:

 Sub DateAdd_Example1 () Redup NewDate As Date NewDate = DateAdd ("d", End Sub 

Langkah 6: Berapa hari yang perlu kita tambahkan, saya harus menambahkan 5 hari.

Kode:

 Sub DateAdd_Example1 () Redup NewDate As Date NewDate = DateAdd ("d", 5, End Sub 

Langkah 7: Tanggal kami adalah " 14-03-2019 "

Kode:

 Sub DateAdd_Example1 () Redup NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub 

Langkah 8: Tampilkan hasil variabel di kotak pesan VBA.

Kode:

 Sub DateAdd_Example1 () Redup NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub 

Jika saya menjalankan kode ini, saya harus mendapatkan tanggal sebagai 19-03-2019.

Dalam format tanggal sistem saya adalah "hh-bb-tttt", jadi hasilnya ditampilkan sesuai pengaturan tanggal sistem.

Namun, kami dapat memodifikasi ini dengan menerapkan fungsi VBA FORMAT.

Kode:

 Sub DateAdd_Example1 () Redup NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Sekarang hasilnya akan seperti ini " 19-Mar-2019 ".

Contoh # 2 - Tambahkan Bulan

Untuk menambahkan bulan di bawah ini adalah kodenya

Kode:

 Sub DateAdd_Example2 () 'Untuk menambahkan bulan Redup NewDate As Date NewDate = DateAdd ("m", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Hasilnya adalah:

Contoh # 3 - Tambahkan Tahun

Untuk menambahkan tahun menggunakan DateAdd gunakan kode di bawah ini.

Kode:

 Sub DateAdd_Example2 () 'Untuk menambahkan tahun Redup NewDate As Date NewDate = DateAdd ("yyyy", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Hasilnya adalah:

Contoh # 4 - Tambahkan Kuartal

Untuk menambahkan seperempat di bawah ini adalah kodenya

Kode:

 Sub DateAdd_Example2 () 'Untuk menambahkan kuartal Redup NewDate As Date NewDate = DateAdd ("Q", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Hasilnya adalah:

Contoh # 5 - Tambahkan Hari Kerja

Untuk menambahkan hari kerja di bawah ini adalah kodenya

Kode:

 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 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 we need to supply negative numbers that are all.

In order to subtract 3 months from the supplied date below is the code.

Code:

 Sub DateAdd_Example3() 'To add hour Dim NewDate As Date NewDate = DateAdd("m", -3, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub 

The result of this code is:

If deduct 3 months from the date 14th March 2019 it will go back to the previous year.