Buat prosedur dalam form :
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
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.
Wassalam,
Kid.
2012/6/26 rian Bass <[email protected]>
> **
>
>
> selamat sore para pakar excel, saya mohon bantuannya, pada kendala yang
> saya hadapi
> file terlampir. terimakasih
>
>
>
>
