ACCESS FEED: Re: [belajar-access] menghitung bulan lahir

Selasa, 01 Juli 2014

Re: [belajar-access] menghitung bulan lahir

maaf saya ngga ngecek posting sebelumnya

maaf kalau repost juga

saya pas googling untuk mencari usia ketemu yang seperti ini

Public Function HitungUmur(ByVal tgla As Date, ByVal tglb As Date) As String

Dim d As Integer, m As Integer, y As Integer

If tgla >= tglb Then

HitungUmur = ""

Exit Function

End If

d = Day(tglb) - Day(tgla)

m = Month(tglb) - Month(tgla)

y = Year(tglb) - Year(tgla)

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

HitungUmur = Format(y, "00") & " Tahun, " & Format(m, "00") & " Bulan, " & Format(d, "00") & " Hari"

End Function

Pada 1 Juli 2014 12.28, Alamul huda alamulhuda19@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com> menulis:

Makasih masss.. ^^

Pada Sabtu, 21 Juni 2014 5:16, "sam duhay samduhay@yahoo.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:

Gunakan fungsi datediff

umur(bln): DateDiff("m";[TGL_LHR];Now())

On Friday, June 20, 2014 12:41 PM, "andreas.kodyat@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> wrote:

Ini maksudnya menghitung umur tapi dalam satuan bulan, bu?

Apabila yang digunakan fungsi MONTH() seperti dalam rumus yang ibu susun, hasilnya hanya berupa selisih bulan dari data tersebut dengan bulan saat ini.

Untuk total umur dalam bulan, lebih tepat dihitung selisih hari nya dulu baru dikonversi perhitungannya ke dalam satuan bulan.

Regards,
Andreas.

"Reality is simply electrical signals interpreted by your brain."
From: "lisa_pasaribu59@yahoo.com [belajar-access]" <belajar-access@yahoogroups.com>
Sender: belajar-access@yahoogroups.com
Date: 19 Jun 2014 20:06:39 -0700
To: <belajar-access@yahoogroups.com>
ReplyTo: belajar-access@yahoogroups.com
Subject: [belajar-access] menghitung bulan lahir

dear senior....

saya lagi belajar membuat databases di access.....
saya mencoba menghitung bulan lahir langsung di query namu tidak berhasil, selalu muncul minus (-) jika bulan lahir lebih besar dari bulan sekarang (berjalan), mohon informasinya. tarima kasih.

berikut rumus yang saya gunakan

Umur (bln): Month(Now())-Month([Tgl-Lahir])