Message Box Tanggal & Hari

Public Class Form1

    Dim Tanggal As Date



    Private Sub btnBulan_Click(sender As System.Object, e As System.EventArgs) Handles btnBulan.Click

        Tanggal = Now

        MessageBox.Show("Bulan : " & Tanggal.Month, "Demo Tanggal")


    End Sub

    Private Sub btnHari_Click(sender As System.Object, e As System.EventArgs) Handles btnHari.Click

        Tanggal = Now

        MessageBox.Show("Hari : " & Tanggal.Day, "Demo Tanggal")

    End Sub

    Private Sub btnTahun_Click(sender As System.Object, e As System.EventArgs) Handles btnTahun.Click

        Tanggal = Now

        MessageBox.Show("Tahun : " & Tanggal.Year, "Demo Tanggal")


    End Sub

    Private Sub btnJam_Click(sender As System.Object, e As System.EventArgs) Handles btnJam.Click

        Tanggal = Now

        MessageBox.Show("Jam : " & Tanggal.Hour, "Demo Tanggal")

    End Sub

    Private Sub btnMenit_Click(sender As System.Object, e As System.EventArgs) Handles btnMenit.Click

        Tanggal = Now

        MessageBox.Show("Menit : " & Tanggal.Minute, "Demo Tanggal")

    End Sub

    Private Sub btnDetik_Click(sender As System.Object, e As System.EventArgs) Handles btnDetik.Click

        Tanggal = Now

        MessageBox.Show("Detik : " & Tanggal.Second, "Demo Tanggal")

    End Sub

    Private Sub btnHariSeminggu_Click(sender As System.Object, e As System.EventArgs) Handles btnHariSeminggu.Click

        Tanggal = Now

        MessageBox.Show("Hari Dalam Seminggu : " & Tanggal.DayOfWeek, "Demo Tanggal")

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnHariSetahun.Click

        Tanggal = Now

        MessageBox.Show("Hari Dalam Setahun : " & Tanggal.DayOfYear, "Demo Tanggal")


    End Sub
End Class