Search This Blog

Loading...

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


Post a Comment