Mencari Tanggal Awal dan Akhir Pada Bulan Tertentu Menggunakan VB6

Baca Juga :

Dalam pembuatan sebuah aplikasi khususnya menggunakan bahasa pemrograman Visual Basic 6.0 atau yang lebih familier dengan sebutan VB6 tentunya tidak luput dengan format date/time baik dalam penyimpanan, pencarian, menghitung selisih tanggal, bulan, tahun, waktu dan tentunya masih banyak lagi, tergantung dari kebutuhan aplikasi tersebut. Pada kesempatan kali ini Admin akan berbagi sebuah source code ringan mengenai cara mencari tanggal awal dan akhir bulan baik pada bulan saat ini, bulan kemarin atau bulan depan. Langsung saja pada pokok pembahasan.

#1. Mencari Tanggal Awal Bulan Depan

Dim cTglAwalBulanDepan As Date

cTglAwalBulanDepan = DateSerial(Year(#9/29/2021#), Month(#9/29/2021#) + 1, 1)

Result = Jumat, 01 Oktober 2021

#2. Mencari Tanggal Akhir Bulan Depan

Dim cTglAkhirBulanDepan As Date

cTglAkhirBulanDepan = DateSerial(Year(#9/29/2021#), Month(#9/29/2021#) + 2, 0)

Result = Minggu, 31 Oktober 2021

#3. Mencari Tanggal Awal Bulan Sekarang

Dim cTglAwalBulanSekarang As Date

cTglAwalBulanSekarang = DateSerial(Year(#9/29/2021#), Month(#9/29/2021#) + 0, 1)

Result = Rabu, 01 September 2021

#4. Mencari Tanggal Akhir Bulan Sekarang

Dim cTglAkhirBulanSekarang As Date

cTglAkhirBulanSekarang = DateSerial(Year(#9/29/2021#), Month(#9/29/2021#) + 1, 0)

Result = Kamis, 31 September 2021

#5. Mencari Tanggal Akhir Bulan Kemarin

Dim cTglAkhirBulanKemarin As Date

cTglAkhirBulanKemarin = DateSerial(Year(#9/29/2021#), Month(#9/29/2021#) - 0, 0)

Result = Selasa, 31 Agustus 2021

#5. Mencari Tanggal Awal Bulan Kemarin

Dim cTglAwalBulanKemarin As Date

cTglAwalBulanKemarin = DateSerial(Year(#9/29/2021#), Month(#9/29/2021#) - 1, 1)

Result = Minggu, 01 Agustus 2021

Sangat mudah bukan, semoga dapat bermanfaat dan tak lupa Admin ucapkan terima kasih banyak atas kunjungannya.