Fungsi Tanggal VBA (12 Penggunaan Makro dengan Contoh)

Daftar Isi

Dalam aplikasi Microsoft Visual Basic, fungsi tanggal atau konsep yang berhubungan dengan tanggal sangat penting untuk melakukan berbagai operasi dalam dataset Anda. Anda mungkin menemukan diri Anda dalam berbagai situasi di mana Anda harus menggunakan fungsi-fungsi ini. Dalam tutorial ini, Anda akan belajar tentang fungsi Tanggal VBA dengan contoh-contoh yang sesuai dan ilustrasi yang tepat. Juga, kami akan memberi Anda beberapa fungsi tanggalyang dapat Anda terapkan di lembar kerja Anda.

Unduh Buku Kerja Praktik

Penggunaan VBA Date.xlsm

Pengenalan Fungsi Tanggal VBA

Excel mengkategorikan Tanggal dalam Tanggal/Waktu Ini adalah fungsi bawaan. Kita dapat menggunakannya dalam makro VBA untuk melakukan operasi apa pun yang berhubungan dengan tanggal.

Sebelum Anda mulai dengan fungsi Date, Anda harus mengetahui tentang Variabel tanggal dalam VBA .

⏺ Sintaksis

Tanggal()

⏺ Penjelasan Argumen

Tidak ada argumen.

⏺ Pengembalian

Mengembalikan tanggal saat ini.

⏺ Tersedia dalam

Excel untuk Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 untuk Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000

⏺ Contoh

Seperti yang Anda ketahui, tidak ada argumen Anda hanya bisa memasukkannya seperti berikut ini:

 Sub vba_date() Dim current_date As Date current_date = Date MsgBox current_date End Sub

Saat kita bekerja dengan fungsi Date, kita tidak memberikan tanda kurung dalam kode VBA seperti contoh ini.

Keluaran :

12 Fungsi Tanggal dalam VBA yang Harus Anda Pelajari

Sekarang, di bagian yang akan datang, kami akan menunjukkan kepada Anda beberapa fungsi tanggal tambahan yang dapat Anda gunakan untuk berbagai keperluan di VBA. Baca bagian ini untuk mengetahui setiap cara yang mungkin untuk bekerja dengan tanggal di VBA. Kami sarankan Anda menyimpannya di gudang senjata Anda. Ini pasti akan meningkatkan pengetahuan Anda.

1. Fungsi DateAdd sebagai Tanggal di VBA

Di VBA, kami menggunakan fungsi DateAdd untuk menambahkan hari pada tanggal tertentu. Setelah itu, itu akan mengembalikan tanggal yang dihasilkan.

Sintaksis:

DateAdd(interval, angka, tanggal)

Argumen:

interval: Ini adalah Required. String expression adalah interval waktu yang ingin Anda tambahkan.

nomor: Required. Ini adalah ekspresi numerik yang merupakan jumlah interval yang ingin Anda tambahkan. Ini bisa positif (untuk mendapatkan tanggal di masa depan) atau negatif (untuk mendapatkan tanggal di masa lalu).

tanggal: Tanggal/waktu asli.

Sekarang, yang interval argumen dapat memiliki pengaturan berikut:

yyyy - Tahun

q - Seperempat

m - Bulan

y - Hari dalam setahun

d - Hari

w - Hari kerja

ww - Minggu

h - Jam

n - Menit

s - Kedua

Potongan Kode :

 Sub dateadd_function() Dim result_Date As Date result_Date = DateAdd("d", 15, "1/31/2022") MsgBox result_Date End Sub

Keluaran:

Seperti yang Anda lihat, itu menambahkan 15 tanggal pada tanggal saat ini di VBA.

Baca selengkapnya: Cara Menggunakan Fungsi IsDate di VBA (3 Contoh)

2. Fungsi DateDiff dalam VBA

The DateDiff fungsi mengembalikan Varian (Panjang) menentukan jumlah celah waktu antara dua tanggal tertentu.

Sintaksis :

DateDiff(interval, date1, date2, [ firstdayofweek, [ firstweekofyear]] )

Argumen:

interval: Ini Wajib. Ekspresi string adalah interval waktu yang ingin Anda tambahkan Ekspresi string yang merupakan jarak waktu yang Anda gunakan untuk menghitung perbedaan antara dua tanggal.

tanggal1, tanggal2: Wajib; Varian (Tanggal). Dua tanggal yang ingin Anda gunakan dalam perhitungan.

hari pertamaminggu: Opsional. Konstanta yang mendefinisikan hari pertama dalam seminggu. Jika tidak tetap, diasumsikan hari Minggu.

minggu pertama tahun ini: Opsional Konstanta yang menetapkan minggu pertama dalam satu tahun. Jika tidak ditetapkan, minggu pertama seharusnya adalah minggu di mana tanggal 1 Januari muncul.

Sekarang, yang interval argumen dapat memiliki pengaturan berikut:

yyyy - Tahun

q - Seperempat

m - Bulan

y - Hari dalam setahun

d - Hari

w - Hari kerja

ww - Minggu

h - Jam

n - Menit

s - Kedua

The firstdayofweek argumen memiliki pengaturan ini:

vbMinggu - memanfaatkan hari Minggu sebagai hari yang paling utama dalam seminggu.

vbSenin - menggunakan hari Senin sebagai hari pertama dalam seminggu.

vbSelasa - mengoperasikan hari Selasa sebagai hari pertama dalam seminggu.

vbRabu - menggunakan hari Rabu sebagai hari pertama dalam seminggu.

vbKamis - mengoperasikan hari Kamis sebagai hari yang lebih baik dalam seminggu.

vbJumat - menggunakan hari Jumat sebagai hari pertama dalam seminggu.

vbSabtu - mengoperasikan hari Sabtu sebagai hari pertama dalam seminggu.

vbGunakanSistemHariDariMinggu - menggunakan hari pertama dalam seminggu yang ditentukan oleh pengaturan perangkat Anda.

The minggu pertamatahun memiliki pengaturan ini:

vbFirstJan1 - memanfaatkan minggu yang berisi 1 Januari.

vbFirstFourDays - mempekerjakan minggu pertama yang memiliki setidaknya empat hari di tahun baru.

vbFirstFullWeek - beroperasi pada minggu penuh pertama tahun ini.

vbSystem - menggunakan minggu pertama tahun ini seperti yang ditentukan oleh lokasi perangkat Anda.

Potongan Kode:

 Sub DateDiff_Function() Dim result As Long result = DateDiff("d", "1/31/2022", "2/12/2022") MsgBox result End Sub

Keluaran :

Pada akhirnya, ini mengembalikan perbedaan antara dua tanggal di VBA.

Baca selengkapnya: Cara Menggunakan Fungsi VBA DateDiff di Excel (9 Contoh)

3. Fungsi DatePart sebagai Date

The DatePart fungsi mengembalikan Varian (Integer) yang berisi bagian yang ditentukan dari tanggal yang disediakan.

Sintaksis :

DatePart(interval, tanggal, [ hari pertamaminggu, [ minggu pertamatahun]])

Argumen:

interval: Ini Wajib. Ekspresi string adalah interval waktu yang ingin Anda tambahkan Ekspresi string yang merupakan jarak waktu yang Anda gunakan untuk menghitung perbedaan antara dua tanggal.

tanggal: Wajib; Varian (Tanggal). Tanggal yang ingin Anda gunakan dalam perhitungan.

hari pertamaminggu: Opsional. Konstanta yang mendefinisikan hari pertama dalam seminggu. Jika tidak tetap, diasumsikan hari Minggu.

minggu pertama tahun ini: Opsional Konstanta yang menetapkan minggu pertama dalam satu tahun. Jika tidak ditetapkan, minggu pertama seharusnya adalah minggu di mana tanggal 1 Januari muncul.

Sekarang, yang interval argumen dapat memiliki pengaturan berikut:

yyyy - Tahun

Lihat juga: Cara Menggabungkan String dan Variabel di Excel VBA (Analisis Mendetail)

q - Seperempat

m - Bulan

y - Hari dalam setahun

d - Hari

w - Hari kerja

ww - Minggu

h - Jam

n - Menit

s - Kedua

The firstdayofweek argumen memiliki pengaturan ini:

vbMinggu - menggunakan hari Minggu sebagai hari yang paling utama dalam seminggu.

vbSenin - menggunakan hari Senin sebagai hari pertama dalam seminggu.

vbSelasa - mengoperasikan hari Selasa sebagai hari pertama dalam seminggu.

vbRabu - menggunakan hari Rabu sebagai hari pertama dalam seminggu.

vbKamis - mengoperasikan hari Kamis sebagai hari yang lebih baik dalam seminggu.

vbJumat - menggunakan hari Jumat sebagai hari pertama dalam seminggu.

vbSabtu - mengoperasikan hari Sabtu sebagai hari pertama dalam seminggu.

vbGunakanSistemHariDariMinggu - menggunakan hari pertama dalam seminggu yang ditentukan oleh pengaturan perangkat Anda.

The minggu pertamatahun memiliki nilai-nilai ini:

vbFirstJan1 - beroperasi dalam seminggu termasuk 1 Januari.

vbFirstFourDays - menggunakan minggu pertama yang memiliki paling sedikit empat hari di tahun baru.

vbFirstFullWeek - memanfaatkan minggu penuh pertama tahun ini.

vbSystem - mempekerjakan minggu pertama tahun ini seperti yang dipilih oleh lokasi perangkat Anda.

Potongan Kode :

 Sub DatePart_Function() Dim result As Integer result = DatePart("m", "10/11/2022") MsgBox result End Sub

Keluaran :

Dengan cara ini, Anda dapat menggunakan fungsi tanggal ini dalam kode VBA.

Baca selengkapnya: Cara Menggunakan Fungsi VBA FileDateTime di Excel (3 Penggunaan)

4. Fungsi DateSerial

Anda bisa melihat tanggal berdasarkan input tahun, bulan, dan hari menggunakan The DateSerial fungsi.

Sintaksis:

DateSerial(tahun, bulan, hari)

Argumen:

tahun - Angka antara 100 dan 9999, inklusif, atau ekspresi numerik yang melambangkan tahun.

bulan - Bidang yang wajib diisi. Nilai integer yang mendefinisikan bulan.

hari - Bidang yang wajib diisi. Nilai integer yang menjelaskan hari.

Potongan Kode:

 Sub date_serial() Dim date_special As Date date_special = DateSerial(2022, 1, 11) MsgBox date_special End Sub

Keluaran :

Baca selengkapnya: Cara Menggunakan VBA TimeSerial di Excel (3 Contoh)

4. Fungsi Nilai Tanggal VBA

Sekarang, kita menggunakan fungsi DateValue untuk mendefinisikan tanggal.

Sintaksis :

DateValue(tanggal)

Argumen:

Di sini, yang tanggal Argumen biasanya berupa ekspresi string yang menggambarkan tanggal dari 1 Januari 100 sampai 31 Desember 9999. Terlepas dari itu, tanggal bisa lebih jauh lagi ekspresi apa pun yang dapat melambangkan tanggal, waktu, atau tanggal dan waktu dalam rentang tersebut.

Potongan Kode:

 Sub Date_value() Dim result As Date result = DateValue("January, 10, 2022") MsgBox result End Sub

Keluaran :

Seperti yang Anda lihat, kami berhasil menggunakan fungsi tanggal dalam kode VBA.

5. Fungsi Hari dalam VBA

Ini mengembalikan Varian (Integer) yang menentukan bilangan real antara 1 dan 31, inklusif, yang menyampaikan hari dalam sebulan.

Sintaksis :

Hari (tanggal)

Argumen:

Argumen tanggal yang diperlukan adalah Varian, ekspresi numerik, ekspresi string, atau kombinasi apa pun. Ini mewakili tanggal. Jika tanggal termasuk Null, itu juga akan mengembalikan Null.

Potongan Kode:

 Sub day_function() Dim date1, the_day date1 = #12/12/2023# the_day = Day(date1) MsgBox the_day End Sub

Keluaran:

Seperti yang Anda lihat, dengan menggunakan kode VBA kami menemukan bahwa hari dari tanggal yang diberikan adalah 12.

Konten Terkait: Fungsi Format VBA di Excel (8 Penggunaan dengan Contoh)

6. Fungsi Bulan VBA sebagai Tanggal

Ini mengembalikan Varian (Integer) yang mendefinisikan bilangan real antara 1 dan 12, inklusif, yang menyampaikan bulan dalam setahun.

Sintaksis :

Bulan (tanggal)

Argumen:

Argumen tanggal yang diperlukan adalah Varian, ekspresi numerik, ekspresi string, atau kombinasi apa pun. Ini mewakili tanggal. Jika tanggal termasuk Null, itu juga akan mengembalikan Null.

Potongan Kode:

 Sub fungsi_bulan() Dim date1, the_month date1 = #12/12/2023# the_month = Month(date1) MsgBox the_month End Sub

Keluaran:

Konten Terkait: Cara Menggunakan Fungsi Kanan VBA di Excel (6 Contoh)

Bacaan Serupa

Cara Menggunakan Fungsi VBA Environ (4 Contoh)
Cara Menggunakan VBA Dan Fungsi di Excel (4 Contoh)
Pernyataan VBA If - Then - Else di Excel (4 Contoh)
Cara Menggunakan Fungsi Abs VBA di Excel (9 Contoh)
Cara Menggunakan Concatenate di Excel VBA (4 Metode)

7. Fungsi Nama Bulan

Ini mengembalikan string yang mendemonstrasikan bulan yang ditentukan.

Sintaksis :

MonthName(bulan, [ singkatan ])

Argumen:

bulan: Diperlukan Judul numerik bulan. Misalnya, Januari adalah 1, Februari adalah 2, dan seterusnya.

singkatan: Ini adalah Opsional. Nilai boolean yang menunjukkan apakah nama bulan akan disingkat. Jika dilewati, defaultnya adalah False, yang menunjukkan bahwa nama bulan tidak disingkat.

Potongan Kode:

 Sub Fungsi_Nama_Bulan() Dim nama_bulan As String nama_bulan = Nama_Bulan(9, True) MsgBox nama_bulan End Sub

Keluaran:

Seperti yang Anda lihat, kami menemukan nama bulan dengan Fungsi Tanggal VBA ini.

8. Fungsi Hari Kerja

Ini mengembalikan sebuah Varian ( Bilangan bulat ) yang memiliki bilangan riil yang menyatakan hari dalam seminggu.

Sintaksis :

Weekday(tanggal, [ hari pertama minggu])

Argumen:

tanggal: Argumen tanggal yang diperlukan adalah Varian, ekspresi numerik, ekspresi string, atau kombinasi apa pun. Ini mewakili tanggal. Jika tanggal termasuk Null, itu juga akan mengembalikan Null.