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.
>
>
>
>
