Menghitung Umur Dengan Kode VBA Ms. Access

Ms Access Everyday

Pada postingan kali ini saya akan mencoba membagikan Script Code untuk menghitung Jumlah Usia, untuk kita terapkan di Ms. Access.

Kode Programnya

Option Compare Database
Option Explicit

Function Age(varBirthDate As Variant) As Integer
    Dim varAge As Variant

    If IsNull(varBirthDate) Then Age = 0: Exit Function

    varAge = DateDiff("yyyy", varBirthDate, Now)
    If Date < DateSerial(Year(Now), Month(varBirthDate), _
                        Day(varBirthDate)) Then
        varAge = varAge - 1
    End If
    Age = CInt(varAge)
End Function

Function AgeMonths(ByVal varBirthDate As Variant) As Integer

    If IsNull(varBirthDate) Then AgeMonths = 0: Exit Function

    Dim tAge As Double
    tAge = (DateDiff("m", varBirthDate, Now))
    If (DatePart("d", varBirthDate) > DatePart("d", Now)) Then
        tAge = tAge - 1
    End If
    If tAge < 0 Then
        tAge = tAge + 1
    End If

    AgeMonths = CInt(tAge Mod 12)

End Function
        

Silahkan Copy Kode diatas simpan dimodule access misal dengan nama: modUsia

Buat Tabel

Buat tabel sebagai berikut, dengan nama: Contacts. Saya harap sudah bisa membuat tabel seperti ini ya, hehe. Input beserta datanya untuk mencoba rumusnya jalan atau tidak.

Membuat Query

Lanjut membuat Query, Design nya seperti gambar dibawah ini, silahkan beri nama Contacts Extended:

Rumus untuk kolom USIA

USIA: Age([TGL LAHIR]) & " years, " & AgeMonths([TGL LAHIR]) & " months"
        

Jalankan/Buka Query Jika Sukses tampilannya akan seperti gambar dibawah ini:

Ok Teman2 semoga bermanfaat

Salam

Tweet

Subscribe to receive free email updates: