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.
  • Angka 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, itu akan tetap mewakili bulan tahun mundur.
  • Jika nomor yang diberikan lebih dari 12 yaitu, jika nomornya 13, maka ini akan mewakili bulan “Januari” tahun berikutnya. Jika angkanya 14, maka akan dianggap 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 memberikan 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 tanggal 31 + 1, maka hari 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 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 di 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". Di 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. Misalnya, lihat kode di bawah ini.

Kode:

Sub DateSerial_Example2 () Redupkan Tanggal Saya Sebagai Tanggal Redupkan Tahun Saya Sebagai Integer Redupkan Bulan Saya Sebagai Integer Redupkan Hari Saya Sebagai Integer Tahun Saya = 2019 Bulan Saya = 8 Hari Saya = 5 Tanggal Saya = TanggalSerial (Tahun Saya, Bulan Saya, Hari Saya) Format MsgBox (Tanggal Saya, "DD-MMM-YYYY ") Akhiri Sub

Instead of supplying year, month, and day directly to the DATESERIAL function, we have declared variables and assigned values to them. Then later, we have supplied variables to the DATESERIAL function.

This is how we can make use of variables in VBA to store values.

Example #3

Now we will experiment with the year. I will assign the year value as 1 and see the result.

Single & Double-digit numbers in YEAR represents a year from 1930 to 2029. So 01 means 2001, 02 means 2002, and so on.

Now let’s change the month number to 0 and see the result.

Look at the code here, Year is 2019, and the month is 0. But look at the result it says 05-Dec-2019, whereas a supplied year is 2019 it says 2018 i.e., the previous year.

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 lain 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 menginginkan hasil yang dimodifikasi, maka Anda perlu menerapkan fungsi FORMAT yang menyebutkan format tanggal sesuai kenyamanan Anda.

Artikel yang menarik...