Fungsi Excel VBA DateAdd
Fungsi DateAdd dikategorikan di bawah fungsi tarikh dan waktu di VBA dan fungsi ini mempunyai nilai output sebagai tarikh, ia mengambil input sebagai format tarikh dan menambahkannya ke tarikh semasa untuk mengembalikan tarikh baru, sintaks untuk fungsi ini mengambil selang tiga argumen, nombor dan tarikh.
Dengan menggunakan fungsi DateAdd, kita dapat menambah dan mengurangkan hari, bulan, dan tahun dari tarikh yang diberikan. Tarikh di excel adalah sebahagian daripada kerja harian kita; kita tidak dapat bekerja di excel tanpa tarikh, masa, dan perkara penting lain Menambah satu tarikh ke tarikh yang lain, mengurangkan satu tarikh dari tarikh yang lain, adalah proses yang biasa. Dalam lembaran kerja biasa, kami hanya melakukan operasi aritmetik dan mendapatkan hasilnya. Di VBA, kita mempunyai fungsi yang disebut DateAdd, yang akan menjalankan tugas.
Sintaks
Selang: Selang tidak lain adalah jenis nilai yang ingin anda tambah atau tolak. Contohnya, sama ada anda mahu menambah atau mengurangkan sebulan, sama ada anda mahu menambah atau mengurangkan hari, sama ada anda mahu menambah atau mengurangkan setahun, sama ada anda mahu menambah atau mengurangkan suku, dll.…
Berikut adalah senarai kod dan keterangan.
- Nombor: Jumlah bulan, hari, atau minggu (seperti yang disediakan dalam selang waktu) yang ingin kita tambah atau tolak tarikhnya.
- Tarikh: Nilai tarikh sebenar yang kita lakukan operasi aritmetik.
Sebagai contoh, jika anda mempunyai tarikh "14-Mar-2019" dan anda ingin menambahkan dua hari pada tarikh tersebut, gunakan kod di bawah:
DateAdd ("d," 2, "14-03-2019")
Hasil kod di atas adalah: 16-03-2019
Bagaimana Menggunakan Fungsi Dateadd di VBA?
Contoh # 1 - Tambah Tarikh
Untuk memulakan prosiding, mari kita gunakan fungsi DateAdd yang mudah. Andaikan anda bekerja dengan tarikh "14-03-2019".
Langkah 1: Mulakan subproses dengan membuat nama makro.
Langkah 2: Tentukan pemboleh ubah sebagai Tarikh.
Kod:
Sub DateAdd_Contoh1 () Dim Bulan Sebagai Tarikh Akhir Sub
Langkah 3: Untuk pemboleh ubah ini, berikan nilai.
Kod:
Sub DateAdd_Example1 () Dim NewDate Sebagai Date NewDate = End Sub
Langkah 4: Mulakan formula DateAdd .
Kod:
Sub DateAdd_Example1 () Dim NewDate Sebagai Date NewDate = DateAdd (End Sub
Langkah 5: Apakah operasi yang ingin kita lakukan. Kami mahu hari hingga tarikh. Jadi selang adalah " d."
Kod:
Sub DateAdd_Example1 () Dim NewDate Sebagai Date NewDate = DateAdd ("d", Sub Akhir
Langkah 6: Berapa hari yang perlu kita tambah? Saya mesti menambah 5 hari.
Kod:
Sub DateAdd_Example1 () Dim NewDate Sebagai Date NewDate = DateAdd ("d", 5, End Sub
Langkah 7: Tarikh kami adalah “ 14-03-2019. "
Kod:
Sub DateAdd_Example1 () Dim NewDate Sebagai Date NewDate = DateAdd ("d", 5, "14-03-2019") Sub Akhir
Langkah 8: Tunjukkan hasil pemboleh ubah di kotak mesej VBA.
Kod:
Sub DateAdd_Example1 () Dim NewDate Sebagai Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Sekiranya saya menjalankan kod ini, saya mesti mendapatkan tarikhnya pada 19-03-2019.
Dalam format tarikh sistem saya adalah "mm-dd-yyyy," jadi hasilnya ditunjukkan mengikut tetapan tarikh sistem.
Walau bagaimanapun, kita dapat mengubahnya dengan menerapkan fungsi VBA FORMAT.
Kod:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") Sub Akhir
Sekarang hasilnya harus seperti ini " 19-Mar-2019 ".
Contoh # 2 - Tambah Bulan
Untuk menambah bulan, berikut adalah kodnya
Kod:
Sub DateAdd_Example2 () 'Untuk menambahkan bulan Dim NewDate Sebagai Tarikh NewDate = DateAdd ("m", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") Sub Akhir
Hasilnya akan:
Contoh # 3 - Tambah Tahun
Untuk menambah tahun menggunakan DateAdd, gunakan kod di bawah.
Kod:
Sub DateAdd_Example2 () 'Untuk menambah tahun Dim NewDate Sebagai Tarikh NewDate = DateAdd ("yyyy", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") End Sub
Hasilnya adalah:
Contoh # 4 - Tambah Suku
Untuk menambah suku di bawah adalah kodnya.
Kod:
Sub DateAdd_Example2 () 'Untuk menambah seperempat Dim NewDate Sebagai Tarikh NewDate = DateAdd ("Q", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") Sub Akhir
Hasilnya adalah:
Contoh # 5 - Tambah Hari Minggu
Untuk menambah hari bekerja di bawah adalah kodnya.
Kod:
Sub DateAdd_Example2 () 'Untuk menambah hari kerja Dim NewDate Sebagai Date NewDate = DateAdd ("W", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") End Sub
Hasilnya adalah:
Contoh # 6 - Tambah Minggu
Untuk menambah minggu di bawah adalah kodnya.
Kod:
Sub DateAdd_Example2 () 'Untuk menambah Minggu Dim NewDate Sebagai Tarikh NewDate = DateAdd ("WW", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") Sub Akhir
Hasilnya adalah:
Contoh # 7 - Tambah Jam
Untuk menambah jam di bawah adalah kodnya.
Kod:
Sub DateAdd_Example2 () 'Untuk menambah jam Dim NewDate Sebagai Date NewDate = DateAdd ("h", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy hh: mm: ss") End Sub
Hasilnya akan
Contoh # 8 - Kurangkan Tarikh
Untuk menambah, kami telah memberikan nombor positif; untuk mengurangkan, dan kita perlu membekalkan nombor negatif yang semuanya.
Untuk mengurangkan 3 bulan dari tarikh yang dibekalkan, berikut adalah kodnya.
Kod:
Sub DateAdd_Example3 () 'Untuk menambah jam Dim NewDate Sebagai Tarikh NewDate = DateAdd ("m", -3, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-yyyy") Sub Akhir
Hasil kod ini adalah:
Saya memotong 3 bulan dari tarikh 14 th Mac 2019. Ia akan kembali ke tahun sebelumnya.
