Menghitung Hari Dalam 1 Bulan

Public Class Form1


    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        XJUMLAH.Text = Microsoft.VisualBasic.Day(DateAdd("d", -1, DateSerial(Year(DateTimePicker1.Value), Month(DateTimePicker1.Value) + 1, 1)))

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Author : Unknown

Share this

Related Posts