CODING VB.NET UNTUK MENENTUKAN JUMLAH HARI DI BULAN FEBRUARI

Sambil nunggu waktu meeting berlanjut...lumayan nih ada waktu sedikit yang bisa ane manfaatin untuk share info niih gan..okelah, di bawah ini adalah salah satu contoh coding vb.net yang saya gunakan untuk menentukan jumlah hari dalam masing-masing bulan, terutama bulan februari yang tidak tentu, bisa 28 hari, bisa juga 29 hari (tahun kabisat). Simak yaa gaan, coding vb.net untuk menentukan jumlah hari di bulan februari.

        Dim month As String
        Dim year As Double
        Dim temp As Integer
        year = Format(dtPeriode.Value, "yyyy").ToString
        month = Format(dtPeriode.Value, "MMMM").ToString


        If month = "January" Then
            txtJmlHari.Text = "31"
        ElseIf month = "March" Then
            txtJmlHari.Text = "31"
        ElseIf month = "May" Then
            txtJmlHari.Text = "31"
        ElseIf month = "July" Then
            txtJmlHari.Text = "31"
        ElseIf month = "August" Then
            txtJmlHari.Text = "31"
        ElseIf month = "October" Then
            txtJmlHari.Text = "31"
        ElseIf month = "December" Then
            txtJmlHari.Text = "31"
        ElseIf month = "February" Then
            temp = Val(year / 4)
            If Val(year - (temp * 4)) = 0 Then
                txtJmlHari.Text = "29"
            Else
                txtJmlHari.Text = "28"
            End If
        Else
            txtJmlHari.Text = "30"
        End If

Oke gan, dah jam 1 nih...dan siap-siap mau lanjut meeting lagi..moga manfaat yaa gan postingannya. Ada saran dan ucapan, silahkan komentarnya ya gaan....