Fungsi DateSerial VBA | Bagaimana cara menggunakan Fungsi DateSerial? (Contoh)

Fungsi DateSerial VBA Excel

Fungsi DateSerial di VBA mengembalikan tanggal dari nilai yang diberikan oleh pengguna. Kita perlu menyediakan tahun apa, hari apa, dan bulan apa. Hasilnya akan didasarkan pada format tanggal sistem Anda.

Di bawah ini adalah sintaks dari fungsi DATESERIAL .

# 1 - Tahun: kita perlu memasukkan bilangan bulat sebagai tahun berapa? Saat memberikan bilangan bulat kita perlu mengingat hal-hal di bawah ini.

Kami dapat menyediakan nomor dari 0 hingga 9999.
Nomor satu & dua digit dari 0 hingga 99 akan diperlakukan dari tahun 1930 hingga 2029.
Bilangan bulat negatif akan dikurangi dari tahun 2000. Misalnya, jika Anda memberikan -1 maka hasilnya adalah 1999 karena 2000 - 1 = 1999.

# 2 - Bulan: kita perlu memasukkan bilangan bulat karena bulannya apa? Saat memasukkan nomor ini kita perlu mengingat hal-hal di bawah ini.

Kami hanya dapat menyediakan nomor dari 1 hingga 12.
Jika nilai integer yang diberikan adalah 0 maka ini akan mewakili bulan “Desember” tahun sebelumnya.
Jika nilai integer yang diberikan adalah -1 maka ini akan mewakili bulan “November” tahun sebelumnya. Seperti ini ketika nilai negatif meningkat maka akan tetap mewakili bulan tahun mundur.
Jika nomor yang diberikan lebih dari 12 yaitu jika nomor 13 maka ini akan mewakili bulan “Januari” tahun berikutnya, jika nomor 14 maka akan diperlakukan sebagai bulan “Februari” tahun berikutnya.

# 3 - Hari: kita perlu memasukkan bilangan bulat sebagai hari apa? Saat memasukkan nomor ini kita perlu mengingat hal-hal di bawah ini.

Kita dapat memasukkan angka integer dari 1 hingga 31 untuk hari-hari bulan ini.
Jika angkanya 0 itu akan mewakili hari terakhir bulan sebelumnya.
Jika angkanya -1 itu akan mewakili hari terakhir kedua dari bulan sebelumnya.
Jika Anda memasukkan hari terakhir bulan ini +1 maka ini akan mewakili hari pertama bulan berikutnya. Misalnya, jika hari terakhir bulan Agustus adalah 31 dan jika Anda memasukkan hari itu sebagai 31 + 1 maka itu akan mewakili hari pertama bulan September.

Bagaimana cara menggunakan Fungsi DATESERIAL di VBA?

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

Contoh 1

Untuk menggunakan fungsi DATESERIAL mulai menulis kode makro.

Langkah 1: Mulai Sub Prosedur

Pertama, buat subprocedure VBA seperti yang ditunjukkan di bawah ini.

Langkah 2: Deklarasikan Variabel

Sekarang nyatakan variabel sebagai DATE.

Langkah 3: Tetapkan Fungsi DateSerial ke variabel itu.

Sekarang untuk variabel ini tetapkan fungsi DATESERIAL.

Langkah 4: Sekarang masukkan nilai tahun, bulan dan hari dalam fungsi DateSerial

Untuk persediaan TAHUN 2019, untuk persediaan MONTH 08, dan untuk persediaan DAY 05.

Langkah 5: Tampilkan Hasil di Kotak Pesan

Sekarang tunjukkan hasil dari variabel "Tanggal saya" di kotak pesan.

Kode:

 Opsi Eksplisit Sub DateSerial_Example1 () Redupkan Tanggal Saya Sebagai Tanggal Mydate = DateSerial (2019, 8, 5) MsgBox Mydate End Sub

Langkah 6: Jalankan kode

Sekarang jalankan kode ini untuk melihat tanggal di bawah ini.

Hasilnya mengatakan "8/5/2019". Pada sistem saya format tanggal berupa “MM-DD-YYYY”, makanya hasilnya juga dalam format yang sama.

Kami juga dapat mengubah format tanggal dengan menggunakan fungsi FORMAT di VBA. Terapkan fungsi FORMAT seperti di bawah ini.

Kode:

 Opsi Eksplisit Sub DateSerial_Example1 () Redup Mydate As Date Mydate = DateSerial (2019, 8, 5) Format MsgBox (Mydate, "DD-MMM-YYYY") End Sub

Ini akan menerapkan format dalam “DD-MMM-YYYY” dan hasilnya adalah sebagai berikut.

Contoh # 2

Kami juga dapat mendeklarasikan variabel dan memberikan nilai ke variabel tersebut. Untuk contoh lihat kode di bawah ini.

Kode:

 Sub DateSerial_Example2 () Redup Mydate As Date Redup MyYear As Integer Redup MyMonth Sebagai Integer Red MyDay As Integer MyYear = 2019 MyMonth = 8 MyDay = 5 Mydate = DateSerial (MyYear, MyMonth, MyDay) Format MsgBox (Mydate, "DD-MMM-YYYY ") Akhiri Sub

Alih-alih menyediakan tahun, bulan, dan hari secara langsung ke fungsi DATESERIAL, kami telah mendeklarasikan variabel dan memberikan nilai padanya. Kemudian nanti kami telah memberikan variabel ke fungsi DATESERIAL.

Ini adalah bagaimana kita dapat menggunakan variabel di VBA untuk menyimpan nilai.

Contoh # 3

Sekarang kita akan bereksperimen dengan tahun ini. Saya akan menetapkan nilai tahun sebagai 1 dan melihat hasilnya.

Angka satu & dua digit dalam YEAR mewakili satu tahun dari 1930 sampai 2029. Jadi 01 berarti 2001, 02 berarti 2002 dan seterusnya.

Sekarang mari ubah nomor bulan menjadi 0 dan lihat hasilnya.

Lihat kodenya di sini, Tahun adalah 2019, dan bulan adalah 0. Tapi lihat hasilnya dikatakan 05-Des-2019, sedangkan tahun yang disediakan adalah 2019 dikatakan 2018 yaitu tahun sebelumnya.

Ini karena karena kami telah menyediakan bulan karena fungsi 0 DATESERIAL mengambil bulan ke bulan terakhir dari tahun sebelumnya dan mengubah tahun juga sesuai dengan itu.

Seperti ini coba angka yang berbeda untuk melihat pengaruh dari fungsi tersebut.

Hal-hal untuk diingat

Anda perlu mengetahui angka apa yang mewakili tahun, bulan, dan tempat penitipan anak. Baca penjelasan Sintaks dengan cermat untuk memahami.
Hasilnya akan didasarkan pada format tanggal sistem Anda, jika Anda ingin hasil yang dimodifikasi maka Anda perlu menerapkan fungsi FORMAT, sebutkan format tanggal sesuai kenyamanan Anda.