Baca Juga
Judul postingnya agak aneh ya. Soalnya saya bingung judul yang pas untuk judul postingan kali ini. Intinya bagaimana merubah value/tanggal pada DTPicker dengan bantuan TextBox atau yang semisalnya. Semakin bingung ya?
Begini, misalnya kita ingin mengetahui kapankah tanggal jatuh tempo pelunasan pinjaman. Tanggal pinjam pada sebuah DTPicker dan tanggal jatuh tempo pada DTPicker yang lain, untuk mengubah tanggal jatuh tempo kita memerlukan sebuah Texbox.
Dengan hanya input berapa bulan temponya, maka Tanggal jatuh tempo akan bisa diketahui. Caranya sangat mudah, bahkan mungkin artikel ini tidak layak beredar di dunia maya, karena sangat sederhana.
Mungkin cara dibawah ini bisa digunakan :
DTPicker2.Month = DTPicker1.Month + val(Text1.Text) ' Penjumlahan bulan
Akan tetapi cara diatas hanya akan berlaku apabila DTPicker1.Month + val(Text1.Text) <=12, akan terjadi masalah apabila jumlahnya melebihi angka 12, karena tidak ada bulan dengan nilai 13, 14 dan seterusnya.
Nah untuk mengatasinya diperlukan code yang agak sedikit panjang. sebagai berikut
On Error Resume Next
DTPicker2.Value = DTPicker1.Value
If Val(Text1.Text) + DTPicker1.Month = 2 Then
DTPicker2.Month = 2
Elseif Val(Text1.Text) + DTPicker1.Month <= 12 Then
DTPicker2.Month = DTPicker1.Month + Val(Text1.Text)
ElseIf Val(Text1.Text) + DTPicker1.Month > 12 Then
DTPicker2.Month = (DTPicker1.Month + Val(Text1.Text)) Mod 12
DTPicker2.Year = (DTPicker2.Year + ((DTPicker1.Month + Val(Text1.Text)) + _
(12 - DTPicker2.Month)) / 12) - 1
End If
Tidak akan terlalu sulit jika yang dijadikan dasar perhitungan adalah hari atau tahun, tinggal dijumlahkan atau dikurangkan saja. Misalnya :
Untuk penjumlahan hari :
DTPicker2.Value = DTPicker1.Value + Text1.Text
Untuk penjumlahan tahun :
DTPicker2.Year = DTPicker1.Year + Text1.Text
Demikian, Semoga bermanfaat
9 Tanggapan
Bagaimana caranya mengambil nilai tahun dari DTPicker.?
Saya memasukkan data tanggal bulan dan tahun di sebuah DTPicker lalu ada sebuah textbox yang secara otomatis mengambil nilai tahunnya sebelum disimpan.
Saya membuat sebuah aplikasi database projec. Dalam sebuah form saya menggunakan 2 buah DTPicker, yang pertama untuk tanggal kontrak dan yang kedua adalah tanggal selesai kontrak. Nah, bagaimana caranya agar DTPicker tanggal selesai kontrak tidak boleh kurang dari tanggal kontraknya..?
Mohon bantuannya... :)
exp :
'mengambil nilai tahun :
Private sub command1_click()
Text1.text=dtpicker1.day
Text2.text=dtpicker1.month
Text3.text=dtpicker1.year
End sub
'validasi tanggal kontrak :
Private Sub DTPicker1_Change()
If DTPicker2.Value < DTPicker1.Value Then MsgBox ""
End Sub
Private Sub DTPicker2_Change()
If DTPicker2.Value < DTPicker1.Value Then MsgBox ""
End Sub
mas klo kita mau ngambil jam dari dtpicker tanggal gmna ? spya tmpil di text1..mis : kita pilih tanggal dari dtpicker1, dan langsung keluar jam'a di text1..mohon pencerahannya !! thankss
mas saya udh coba codingnya tapi ada perhitungan yang tidak berfungsi, contohnya saya memasukan tanggal awal 30-8-1990 dan jangka waktu 6 bulan maka hasil jatuh temponya bukan tanggal 30-2-1991 tapi tetap saja seperti tanggal awal 30-8-1990. hal tersebut terjadi apabila melebihi tanggal 28, dan apabila tanggal 1 s/d 28 semuanya berjalan normal, tetap stelah memasuki tanggal 29 ke atas perhitungannya tidak berjalan normal mohon pencerahannya terima kasih
mas mau tanya kalau data tangal bulan dan tahun dari DTPicker mau di simpan ke database acses gimana codingnya?vv
kalau di vb 2010 gimana caranya gan?
terima kasih mas..artikelnya sangat membantu.