MS ACCESS MAILING LIST

Re: [belajar-access] menghitung umur [1 Attachment]

[Attachment(s) from Aksan Kurdin included below]

Ini ada fungsi yang saya ambil dari http://putravb.blogspot.com/2010/05/fungsi-hitung-umur.html:
Saya tambahkan penjelasan seperlunya

Public Function HitungUmur(ByVal TglLahir As Date) As String     Dim d As Integer, m As Integer, y As Integer      'Jika belum lahir, jangan dihitung     If TglLahir >= Now Then         HitungUmur = ""         Exit Function     End If      'cari selisih hari, selisih bulan, dan selisih tahun     d = Day(Now) - Day(TglLahir)     m = Month(Now) - Month(TglLahir)     y = Year(Now) - Year(TglLahir)      'fungsi sgn untuk mengecek hasil selisih negatif (-1), nol (0), atau positif (1)     If Sgn(d) = -1 Then         'jika negatif, maka berarti masih 30 - d hari lagi,         'satu bulan dianggap 30 hari         d = 30 - Abs(d)         m = m - 1     End If          If Sgn(m) = -1 Then         'jika negatif, maka berarti masih 12 - m bulan lagi         m = 12 - Abs(m)         y = y - 1     End If      HitungUmur = y & " Tahun, " & m & " Bulan, " & d & " Hari" End Function

Silakan jalankan dengan misalnya :

select nama, tglLahir, HitungUmur(tglLahir) as umur from table

Nah untuk kasus anda, manipulasi fungsi tersebut untuk menerima dua parameter tanggal (tanggal 1, dan tanggal 2):

Public Function HitungUmur2Tanggal(ByVal TglLahir1 As Date, ByVal TglLahir2 As Date) As String     Dim d As Integer, m As Integer, y As Integer      If TglLahir1 >= TglLahir2 Then         HitungUmur2Tanggal = ""         Exit Function     End If      d = Day(TglLahir2) - Day(TglLahir1)     m = Month(TglLahir2) - Month(TglLahir1)     y = Year(TglLahir2) - Year(TglLahir1)      If Sgn(d) = -1 Then         d = 30 - Abs(d)         m = m - 1     End If          If Sgn(m) = -1 Then         m = 12 - Abs(m)         y = y - 1     End If      HitungUmur2Tanggal = y & " Tahun, " & m & " Bulan, " & d & " Hari" End Function

berikut hasilnya dari immediate window:

Aksan Kurdin

On 2/21/2012 8:45 PM, nur kholis wrote:

assalamu'alaikum para master acces ...

saya sedang membuat database pemilih .... dan terkendala pada saat menghitung umur ...

pada saat tanggal 17-04-2112 pemilh harus berusia 17 tahun (paling muda lahir tgl 17-07-1995)

saya coba pake datediff ("yyyy";[tgllahir];#17-04-2112) kok munculnya pembulatan tahun

seharusnya klo lahirnya tanggal 18-04-1995 masih usia 16 kok keluarnya 17 tahun ... mohon bantuan para master acces ...

wassalamu'alaikum ....

__._,_.___

Attachment(s) from Aksan Kurdin

1 of 1 Photo(s)

Noname.jpg

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (7)

Recent Activity:

New Members 12

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: [belajar-access] Tanya artikel tentang references

Benar,
sangat menjengkelkan kalau aplikasi tidak bisa jalan di 'semua' stasiun yang kita pasang.

coba google, beberapa artikel menarik, tetapi sudah berumur:

http://access.mvps.org/access/modules/mdl0022.htm

coba yang lain:
http://www.trigeminal.com/usenet/usenet026.asp
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html
http://allenbrowne.com/ser-38.html
http://stackoverflow.com/questions/5612640/ms-access-2007-setting-object-library-references-dynamically-possible

aksan kurdin

On 2/25/2012 8:36 AM, adi_srpd wrote:

Dear rekan-rekan belajar access,,

Mohon pencerahan dari rekan-rekan semua tentang references yang terdapat dalam editor VBA.
Mungkin dari rekan-rekan ada yang mempunyai artikel tentang references secara lengkap?
Saya masih belum memahami penuh kegunaan masing-masing references yang ada, terutama pada saat ada trouble "missing references" pada saat aplikasi dijalankan pada komputer lain (pada saat dijalankan dikomputer pertama aplikasi berjalan normal).
Yang kedua apakah ada tool khusus untuk memastikan bahwa code VBA & references yang kita pakai sudah benar sesuai dengan yang seharusnya?

Terimakasih atas bantuan rekan-rekan semua..

Salam Access,,

Adi

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

New Members 12

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: [belajar-access] link untuk combobox

Manfaatkan event after update dari combo box.
Misalkan pilihan yang ada di combobox combo0 adalah nama form, maka gunakan event berikut:

Private Sub Combo0_AfterUpdate()     DoCmd.OpenForm Me.Combo0 End Sub

aksan kurdin

On 2/23/2012 9:25 PM, reza anggara wrote:

dear para master acces

mohon bantuannya nih.
kendala saya adalah.
ketika saya memilih combobox seperti
1. A
2. B
3. C

ketika memilih salah satu combobox tsb secara otomatis akan membuka form A, B atau C.
mohon para bantuan master
saya memakai VBA untuk codingnya, tidak familiar dgn macro

regards

Reza