read more......

 

 

 

 

 

 

 

 

 

 

 

T

Tips & Tricks: Menentukan Tanggal Akhir Setiap Bulan    

Pada aplikasi tertentu, terkadang kita perlu menentukan tanggal akhir dari suatu bulan atau periode. Sedangkan variable yang diinput hanya berupa Tahun dan Bulan saja.

Berikut function untuk mengetahui tanggal akhir bulan.

 

Function TglAkhirBulan (cPeriode as String) as Integer

Dim dTgl

dTgl = DateSerial(Val(Left(cPeriode, 4)), Val(Mid(cPeriode, 5, 2)) + 1, 0)
TglAkhirBulan = Day(dTgl)

End Function

Parameter cPeriode diisi Tahun dan Bulan, dengan format: yyyymm, misal: Untuk mengetahui Tanggal Terakhir pada bulan Februari 2009, maka panggil function tersebut dengan cara:

 

Dim nTgl as Integer

Dim dTanggal as Date

nTgl = TglAkhirBulan("200902")

dTanggal = DateSerial(2009,2,nTgl)

'....... dTanggal akan menghasilkan: 28 Februari 2009