Terimakasih Mr.Kid Akhirnya Bisa juga. Thanks
________________________________ From: Kid Mr. <[email protected]> Sent: Wednesday, June 27, 2012 1:55 PM Bukankah perhitungan usia tergantung dari 2 nilai tanggal ? Asumsinya berdasar input tanggal lahir dan tanggal pinjam. Berarti event change bukan hanya dari 1 textbox tanggal saja kan ? Harusnya ada 2 textbox tanggal bukan ? Private Sub Usia() Dim dtPinjam As Date, dtLahir As Date On Error GoTo Keluar TxtUsia.Text = vbNullString dtPinjam = CDate(txtTglPinjam.Text) dtLahir = CDate(txtTglLahir.Text) TxtUsia.Text = Round(DateDiff("m", dtLahir, dtPinjam) / 12, 2) Keluar: Err.Clear On Error GoTo 0 End Sub Kid. 2012/6/27 rian Bass <[email protected]> >pak sudah saya buat seperti yang bapak anjurkan, tapi tetap tidak muncul >usianya di txtusia, dan apa yang di maksud " Kemudian, buat event setiap >textbox tanggal untuk panggil prosedur Usia di atas. >Sebaiknya input pada textbox tanggal berformat YYYY-MM-DD >Set juga properti Locked dari textbox untuk menampilkan usia dalam keadaan >bernilai TRUE " saya kurang paham pak, tolong di beri pencerahannya.
