VBA DateAdd - Tambahkan & Kurangi Tanggal menggunakan Fungsi 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 dua 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?

Contoh # 1 - Tambahkan Tanggal

Untuk memulai prosesnya, 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 variabel ini, tetapkan nilai.

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 akan 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 menambah bulan, berikut 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 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.

Untuk mengurangi 3 bulan dari tanggal yang diberikan, di bawah ini adalah kodenya.

Kode:

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

Hasil dari kode ini adalah:

Aku memotong 3 bulan dari tanggal 14 th Maret 2019. Ini akan kembali ke tahun sebelumnya.

Artikel yang menarik...