Tanggal Akhir Bulan

Tanggal akhir bulan biasanya digunakan untuk melengkapi title / judul data laporan keuangan di akhir periode (misal, Laporan Neraca per . . . . . . . . . . . . ). Untuk mengetahui tanggal akhir bulan, tidak diperlukan kode yang terlalu banyak. Berikut ini contohnya :

Dim Bulan As Integer, Tahun As Integer, d As Date

Bulan = 7 'JULI

Tahun = 2011

d = DateSerial(Tahun, Bulan + 1, 0) 'menampung hasil
MsgBox d 'memunculkan pesan

Jika Anda ingin mengetahui tanggal akhir bulan dari bulan sekarang dan tahun sekarang, gantikan kode yang berwarna merah dengan kode berikut :

Bulan = Month(Now)
Tahun = Year(Now)