coba dipilah hari bulan tahun baru di operasikan contoh kode Private Sub Text0_AfterUpdate() ' text0 input tgl lahir ' text2 input sampai tanggal ' text4 output keluaran umur dlm tahun Text4 = (Month([Text2]) - Month([text0])) + ((Year([Text2]) - Year([text0])) * 12) If Day([text0]) > Day([Text2]) Then Text4 = (Text4) - 1 Else Text4 = Text4 Text4 = Int((Text4 / 12)) End Sub --- On Tue, 2/21/12, nur kholis <nur_ceper@yahoo.co.id> wrote:
|
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar