Fungsi DateAdd() Microsoft Access

Fungsi DateAdd MS Access adalah fungsi untuk melakukan proses penambahan data atau pengurangan data pada variabel dengan tipe data tanggal.
Penulisan fungsi DateAdd adalah sebagai berikut:
DateAdd(Interval As String, Number As Double, Date)

Fungsi DateAdd memiliki 3 parameneter:

Interval : yaitu string yang menunjukan data apa yang akan ditambahkan apakah data hari atau data bulan
Number: yaitu nilai besaran berapa penambahan yang akan ditambahkan kepada variabel Date
Date: yaitu variabel tanggal yang datanya akan diproses

Contoh penggunaan:
Buat form baru
Tambahkan satu buah TextBox
Set property default value =Now()
Set property format menjadi dd-mmm-yyyy
Tambahkan 4 buah button dengan event onclick sebagai berikut:
Private Sub Command2_Click()
Me.Text0 = DateAdd("d", 1, Me.Text0)
End Sub

Private Sub Command3_Click()
Me.Text0 = DateAdd("m", 1, Me.Text0)
End Sub


Private Sub Command5_Click()
Me.Text0 = DateAdd("d", -1, Me.Text0)
End Sub

Private Sub Command6_Click()
Me.Text0 = DateAdd("m", -1, Me.Text0)
End Sub
Keterangan:
Statement Me.Text0 = DateAdd("d", 1, Me.Text0), adalah perintah untuk menambahkan data 1 hari ke textbox Text0. Kalau isi data Text0 adalah tanggal 6/20/2009 maka akan berubah menjadi 6/21/2009
Statement Me.Text0 = DateAdd("d", -1, Me.Text0), adalah perintah untuk mengurangi data 1 hari ke textbox Text0. Kalau isi data Text0 adalah tanggal 6/20/2009 maka akan berubah menjadi 6/19/2009
Statement Me.Text0 = DateAdd("m", 1, Me.Text0), adalah perintah untuk menambahkan data 1 pada bulan ke textbox. Kalau isi data Text0 adalah tanggal 6/20/2009 maka akan berubah menjadi 7/20/2009 Text0
Statement Me.Text0 = DateAdd("m", -1, Me.Text0), adalah perintah untuk mengurangi data 1 pada bulan ke textbox Text0. Kalau isi data Text0 adalah tanggal 6/20/2009 maka akan berubah menjadi 5/20/2009

Download Sample file Access

Artikel terkait dengan kategori ini: