CODING VB.NET UNTUK MENENTUKAN JUMLAH HARI DI BULAN FEBRUARI

 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
 
 
 
Semoga Bermanfaat ya