From: "Aksan Kurdin aksan.kurdin@gmail.com [belajar-access]" <belajar-access@yahoogroups.com>
Date: Feb 19, 2015 6:46 PM
Subject: Re: [belajar-access] Mengetahui tanggal lahir dari umur
To: <belajar-access@yahoogroups.com>
Cc:
ga bisa kalau hanya tahun aja.
harus bisa di tetapkan berapa tahun, berapa bulan, berapa hari, kalau perlu dengan jam nya, supaya bisa dihitung selisih tanggal sekarang dengan berapa tahun bulan hari jam nya untuk memperoleh tanggal lahir...
clue nya, fungsi dateadd
contoh untuk menganggap tgl dan bulan sama dengan tgl bulan sekarang:
Function getBOD(tahun As Integer) As Date
getBOD = DateAdd("y", -30, Date) 'menambahkan -30 ke tahun dari tanggal sekarang
End Function
kalau anda tahu berapa bulan nya, pake interval "m" dengan mengalikan tahunnya dengan 12
Function getBOD(tahun As Integer, bulan As Integer) As Date
Dim periode As Integer
periode = tahun + 12 * bulan
getBOD = DateAdd("m", -periode, Date) 'menambahkan -periode bulan ke tanggal sekarang
End Function
selebihnya, anda bisa kembangkan sendiri .... yang lebih rumit mikir algoritma nya :)
aksan kurdin
Dear All Pakar Acces,Bagaimana cara mengetahui tanggal lahir seseorang lewat code vba, misal :Si A diinput umur 30 lalu bisa diketahui langsung tanggal lahir misal : 01-01-1985.Apakah hal ini bisa dilakukan di microsoft access, informasi saya menggunakan microsoft access 2003sebelumnya saya ucapkan terima kasih banyak.
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (2) |
No comments:
Post a Comment