Postingan kali ini akan membahas tentang date pada visual basic, dimana date dapat berubah otomatis pada even tertentu. Misal nya pada program peminjaman buku di perpustakaan, setelah data tanggal peminjaman di inputkan, maka data tanggal pengembalian akan beruhah otomatis (bertambah 7 hari setelah tanggal peminjaman ).
Private Sub dttgl_pinjam_LostFocus()
dttgl_kembali.Value = DateAdd("d", 7, dttgl_pinjam.Value)
End Sub
Angka 7 yang ada pada koding dapat diubah sesuai denganlama peminjaman yang di bolehkan.
Semoga bermanfaat kawan,,,
0 komentar:
Posting Komentar