Tanggal awal pada suatu bulan sudah pasti yaitu tanggal 1. Bagaimana dengan tanggal akhir? Ada bulan yang memiliki jumlah hari 28, 29, 30 dan 31. Visual Basic telah menyediakan cara untuk mencari tanggal akhir pada suatu bulan yaitu dengan menggunakan fungsi DateSerial.
Fungsi DateSerial biasanya digunakan untuk membuat tanggal dengan tiga komponen yaitu day, month, dan year.
Berikut adalah coding VB untuk mencari tanggal akhir dalam suatu bulan.
Sub GetTanggalAkhirBulan() Dim Tanggal As Date Dim TanggalAkhir As Date Tanggal = DateSerial(2021, 6, 10) 'membuat tanggal 6 June 2021 'rumus mencari tanggal akhir dalam suatu bulan TanggalAkhir = DateSerial(Year(Tanggal), Month(Tanggal) + 1, 0) Debug.Print(Format(TanggalAkhir, "dd MMMM yyyy")) 'hasil = 30 June 2021 End Sub
Mudah dan praktis, semoga bermanfaat.
Baca juga: Menambahkan Tanggal Dengan VB
Baca juga: Modifier pada VB