PENGGUNAAN TYPE DATA DATE PADA VB.NET 2008

Type data date sering digunakan dalam pembuatan aplikasi aplagi yang berhubungan dengan transaksi,,,,,

disini saya akan memberikat contoh program penggunaan date dan cara pengaturan format nya.
Berikut adalah singkatan-singkatan yang digunakan dalam pengetikan listing program...

Setelah mengetahui singkatam singkatan yang digunakan, kemudian buatlah form seperti berikut :

Dan berikut adalah listing program nya :


    Private Sub FRM_TYPEDATA_date_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim TANGGAL As Date
        Dim tambah As Date
        Dim kurang As Date

        TANGGAL = Now.Date
        TXTTGL1.Text = TANGGAL
        TXTTGL2.Text = Format(TANGGAL, "dd-MM-YYYY")
        TXTTGL3.Text = Format(TANGGAL, "dd-MMM-YYYY")
        TXTTGL4.Text = Format(TANGGAL, "dd-MMMM-YYYY")

        TXTTAHUN.Text = TANGGAL.Year
        TXTBLAN1.Text = TANGGAL.Month
        TXTBLN2.Text = Format(TANGGAL, "MMM")
        TXTBLN3.Text = Format(TANGGAL, "MMMM")
        TXTHARI1.Text = TANGGAL.Day
        TXTHARI2.Text = Format(TANGGAL, "ddd")
        TXTHARI3.Text = Format(TANGGAL, "dddd")

        tambah = DateAdd("d", 5, TANGGAL) ' menambah tanggal
        txttambah.Text = tambah

        kurang = DateAdd("m", -5, TANGGAL)
        txtkurang.Text = kurang
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

jika sudah selesai maka jalankan program dengan menekan F5

*** note : jika tanggal yang dirubah maka menggunakan singkatan "d"
misal : DateAdd("d", 5, TANGGAL) ' menambah tanggal 

sedangkan

jika bulan yang dirubah maka menggunakan singkatan "m"
misal : kurang = DateAdd("m", -5, TANGGAL) ' mengurangi bulan


Terimakasih