VBA DateSerial

Fungsi Seri Tanggal VBA Excel

Fungsi DateSerial di VBA mengembalikan tanggal dari nilai yang diberikan oleh pengguna. Jadi, kita perlu menyediakan tahun berapa, hari apa, dan bulan apa. Kemudian, berdasarkan format tanggal sistem Anda, hasilnya adalah.

Di bawah ini adalah sintaks dari fungsi DateSerial .

#1 – Tahun sebagai Bilangan Bulat: Kita perlu memasukkan angka bilangan bulat seperti tahunnya. Saat memberikan bilangan bulat, kita harus mengingat hal-hal di bawah ini.

Kami dapat menyediakan angka dari 0 hingga 9999.
Ini akan memperlakukan angka satu dan dua digit dari 0 hingga 99 dari tahun 1930 hingga 2029.
Bilangan bulat negatif akan mengurangi tahun 2000. Jadi, misalnya, jika Anda memberikan -1, hasilnya adalah 1999 karena 2000 – 1 = 1999.

#2 – Bulan Sebagai Bilangan Bulat: Kita perlu memasukkan angka bilangan bulat seperti bulannya. Saat memasukkan nomor ini, kita harus mengingat hal-hal di bawah ini.

Kami hanya dapat menyediakan nomor dari 1 hingga 12.
Jika nilai bilangan bulat yang diberikan adalah 0, ini akan mewakili bulan “Desember” tahun sebelumnya.
Jika nilai bilangan bulat yang diberikan adalah -1, ini akan menunjukkan bulan “November” tahun sebelumnya. Seperti ini, ketika nilai negatif meningkat, itu akan tetap mewakili bulan tahun mundur.
Jika angka yang diberikan lebih dari 12, yaitu jika angkanya 13, maka ini akan mewakili bulan “Januari” tahun berikutnya. Jika jumlahnya 14, itu akan menjadi bulan “Februari” tahun berikutnya.

#3 – Hari Sebagai Bilangan Bulat: Kita perlu memasukkan bilangan bulat seperti hari ini. Saat memasukkan nomor ini, kita harus mengingat hal-hal di bawah ini.

Kita dapat memasukkan bilangan bulat dari 1 sampai 31 untuk hari-hari bulan ini.
Jika angkanya 0, itu akan mewakili hari terakhir bulan sebelumnya.
Jika angkanya -1, itu akan mewakili hari kedua terakhir dari bulan sebelumnya.
Jika Anda memberikan +1 pada hari terakhir bulan ini, ini akan mewakili hari pertama bulan berikutnya. Misalnya, jika hari terakhir bulan Agustus adalah 31 dan jika Anda memasukkan hari sebagai 31 + 1, itu akan mewakili hari pertama bulan September.

Bagaimana cara menggunakan Fungsi DATESERIAL di VBA?

Contoh 1

Untuk menggunakan fungsi DateSerial, mulailah menulis kode makro.

Langkah 1: Mulai Sub Prosedur

Pertama, buat sub prosedur VBA, seperti yang ditunjukkan di bawah ini.

Langkah 2: Deklarasikan Variabel

Sekarang, nyatakan variabel sebagai Tanggal.

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 suplai TAHUN 2019, suplai BULAN 08, dan suplai HARI 05.

Langkah 5: Tampilkan Hasil di Kotak Pesan

Sekarang, tampilkan hasil variabel “Tanggal saya” di kotak pesan.

Kode:

Opsi Eksplisit Sub DateSerial_Example1() Dim Mydate As Date 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”. Dalam sistem, format tanggal dalam bentuk “MM-DD-YYYY.” 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 Sub Eksplisit DateSerial_Example1() Dim Mydate As Date Mydate = DateSerial(2019, 8, 5) MsgBox Format(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. Sebagai contoh, lihat kode di bawah ini.

Kode:

Sub DateSerial_Example2() Dim Mydate As Date Dim MyYear As Integer Dim MyMonth As Integer Dim MyDay As Integer MyYear = 2019 MyMonth = 8 MyDay = 5 Mydate = DateSerial(MyYear, MyMonth, MyDay) MsgBox Format(Mydate, “DD-MMM-YYYY “) Akhir Sub

Alih-alih secara langsung memasok tahun, bulan, dan hari ke fungsi DATESERIAL, kami telah mendeklarasikan variabel dan menetapkan nilai ke dalamnya. Kemudian, kami menyediakan variabel ke fungsi DateSerial.

Seperti ini, kita bisa menggunakan variabel di VBA untuk menyimpan nilai.

Contoh #3

Sekarang, kita akan bereksperimen dengan tahun. Pertama, kami akan menetapkan nilai tahun sebagai 1 dan lihat hasilnya.

Angka tunggal dan dua digit dalam TAHUN mewakili tahun dari 1930 hingga 2029. Jadi 01 berarti 2001, 02 berarti 2002, dan seterusnya.

Mari kita ubah angka bulan menjadi 0 dan lihat hasilnya.

Lihat kode di sini, tahunnya 2019, dan bulannya 0. Tapi lihat hasilnya, tertulis 05-Des-2019, sedangkan tahun yang diberikan adalah 2019 dan 2018, yaitu tahun sebelumnya sejak kami memberikan bulan sebagai 0.

Jadi, fungsi DateSerial mengambil bulan ke bulan terakhir dari tahun sebelumnya dan mengubah tahun sesuai dengan itu.

Seperti ini, coba nomor yang berbeda untuk melihat dampak dari fungsi tersebut.

Hal-hal untuk diingat

Kita harus tahu angka apa yang mewakili tahun, bulan, dan tempat penitipan anak yang mana. Baca penjelasan sintaks dengan hati-hati untuk memahami.
Berdasarkan format tanggal sistem, ini memberikan hasilnya. Jika Anda menginginkan hasil yang dimodifikasi, maka Anda perlu menerapkan fungsi FORMAT dan menyebutkan format tanggal sesuai kenyamanan Anda.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk VBA DateSerial. Di sini, kita belajar cara menggunakan fungsi VBA DateSerial, contoh, dan template Excel yang dapat diunduh. Di bawah ini adalah beberapa artikel Excel berguna yang terkait dengan VBA: –