Menambahkan Tanggal Pada Vb.Net

Jujur saja ku katakan padamu bahwa “Visual Basic adalah bahasa pemrograman yang paling gampang digunakan”. Salah satu alasannya adalah operasional tanggal yang mudah.

Untuk mengoperasikan tanggal (tambah/kurang) kita menggunakan fungsi DateAdd. Fungsi ini dapat berjalan di VB.Net ataupun VB 6.

Bagian yang dapat dioperasikan oleh DateAdd adalah hari (day) dan bulan (month). Sedangkan untuk minggu, dapat kita kalkulasi dengan 7 hari dan tahun dapat kita kalkulasi dengan 12 bulan.

Berikut adalah contoh program untuk mengoperasikan tipe data tanggal.

Sub TambahKurangTanggal()
        Dim Tanggal As Date
        Dim Tanggal2 As Date
        Tanggal = DateSerial(2021, 3, 25) 'membuat tanggal 25 March 2021

        Tanggal2 = DateAdd("d", 60, Tanggal) 'var Tanggal + 60 hari 
        Debug.Print(Format(Tanggal2, "yyyy-MM-dd"))
        ' hasil: 2021-05-24

        Tanggal2 = DateAdd("m", 3, Tanggal) 'var Tanggal + 3 bulan
        Debug.Print(Format(Tanggal2, "yyyy-M-dd"))
        ' hasil: 2021-6-25

        Tanggal2 = DateAdd("m", 12, Tanggal) 'var Tanggal + 1 tahun (12 bulan)
        Debug.Print(Format(Tanggal2, "yyyy-M-dd"))
        ' hasil: 2022-3-25

        Tanggal2 = DateAdd("m", -12, Tanggal) 'var Tanggal - 1 tahun (12 bulan)
        Debug.Print(Format(Tanggal2, "yyyy-M-dd"))
        ' hasil: 2020-3-25
    End Sub

Baca: Memformat Tanggal di VB.Net

Leave a Reply

Your email address will not be published. Required fields are marked *