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 VBAContoh # 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.