Mencari Tanggal Akhir Bulan VB6

Pada postingan kali ini saya ingin berbagi cara mencari tanggal akhir bulan. Algoritmanya adalah ketika datapicker tanggalnya dipindahkan ke tanggal tertentu atau bulan tertentu, dtpicker tersebut akan selalu menunjukkan tanggal akhir bulannya saja.

Langsung saja kita praktekkan. Buka vb6nya, kemudian pilih standard exe. Komponen yang kita butuhkan dalam hal ini adalah sebuah dtpicker. Kalau di tool boxnya belum ada klik kanan di toolbox, kemudian pilih component, lalu beri centang pada Microsoft Windows Common Control-2 6.0. Setelah itu tempatkan dtpicker pada form yang telah anda buka sebelumnya. Dalam hal ini dtpicker saya beri nama "dt1" (tanpa tanda petik) Kemudian ketik/copy coding berikut:

Sub TglTerakhir()
Dim Bulan, Tahun, Kabisat As Integer
Bulan = Month(dt1.Value)
Tahun = Year(dt1.Value)
Kabisat = Tahun Mod 4
If Bulan = 1 Then
    dt1.Day = 31
    Else
        If Bulan = 2 And Kabisat = 0 Then
            dt1.Day = 29
            Else
                If Bulan = 2 And Kabisat <> 0 Then
                    dt1.Day = 28
                    Else
                        If Bulan = 3 Then
                            dt1.Day = 31
                            Else
                                If Bulan = 4 Then
                                    dt1.Day = 30
                                    Else
                                        If Bulan = 5 Then
                                            dt1.Day = 31
                                            Else
                                                If Bulan = 6 Then
                                                    dt1.Day = 30
                                                    Else
                                                        If Bulan = 7 Then
                                                            dt1.Day = 31
                                                            Else
                                                                If Bulan = 8 Then
                                                                    dt1.Day = 31
                                                                    Else
                                                                        If Bulan = 9 Then
                                                                            dt1.Day = 30
                                                                            Else
                                                                                If Bulan = 10 Then
                                                                                    dt1.Day = 31
                                                                                    Else
                                                                                        If Bulan = 11 Then
                                                                                            dt1.Day = 30
                                                                                            Else
                                                                                                If Bulan = 12 Then
                                                                                                    dt1.Day = 31
                                                                                                End If
                                                                                        End If
                                                                                End If
                                                                        End If
                                                                End If
                                                        End If
                                                End If
                                        End If
                                End If
                        End If
                End If
        End If
End If
End Sub

Selanjutkan klik 2 kali pada dtpicker, kemudian eventnya rubah menjadi change, selanjutnya tinggal panggil coding sudah dibuat diatas. Codingnya adalah sebagai berikut:

Private Sub dt1_Change()
TglTerakhir
End Sub

Silahkan dicoba, semoga bisa membantu.

Artikel Terkait