from: Andita Bastan Bangun(A)
[ask] teman, nanya dong...
kalau mau buat msgbox untuk pengingat tanggal jatuh tempo bagaimana ya?
cth :
Peminjaman : 14/01/14
Jatuh tepmpo : 6 bulan setelahnya
tp di 3 bulan sebelum jatuh tempo, muncul msgbox untuk reminder
Suka �
Elven Marchive menyukai ini.
H: Dim tgl As Date = "01/14/2014"
MsgBox(DateDiff(DateInterval.Month, tgl, DateTime.Now))
Y: pake timer mungkin , misal tiap hari aplikasi dibuka , melakukan pengecekan tgl pinjam > 3bln maka masuk ke table peringatan,jika tabel peringatan tidak kosong maka muncul msgbox
A: bang Hartoto Dinata itu di form activate ya?
A: bang Yuslich Yan listing nya bagaimana bang?
H: terserah mau kapan mo di form_load ato di timer juga bisa
A: kalau di tanggal peminjamannya itu menggunakan DTPicker dan sudah ter set otomatis bagaimana?
H: sama saja tinggal mainkan logika
H itu vb6 ato vb.net?
A: vb6 bang
H: klo vb6 gini:
MsgBox DateDiff("m", DTPicker1.Value, Now)
A: bang, fungsi 'm" disitu sebagai apa ya?
H: s Second
n Minute
h Hour
d Day
m Month
yyyy Year
y Day of year
q Quarter
ww Week of year
w Weekday
A: kalau datediff bukannya cuma untuk cari selisih tanggal ya bang?
H: ha..ha... tinggal puter logika aja.... dh dapet tuh masalah mu
A: ooww..oke, jd dri selisih yg didapat apabila memenuhi syarat, akan mucul msg box, gtu bang?
H: if datediff(......) = 6 then jatuhTempo
H: Dim selBulan As Integer
selBulan = DateDiff("m", DTPicker1.Value, Now)
Dim tglJatuhTempo As Date
tglJatuhTempo = DateAdd("m", selBulan, Date)
MsgBox tglJatuhTempo
Terima kasih sudah membaca artikel tentang Cara Membuat Kotak Pesan Untuk Pengingat Tanggal Jatuh Tempo Pada Visual Basic, semoga artikel ini bermanfaat bagi anda
Baca Juga Artikel tentang Trik Yang Belum Di Approve Oleh Google Adsense
EmoticonEmoticon