ถ้าอยากลองทำดู ลองดูขั้นตอนตามรูปนะครับ
ขั้นตอนที่ 1 สร้างตารางมา ชื่อ table1
ID ชนิดข้อมูลเป็น Autonumble
DateOfStartWork ชนิดข้อมูลเป็น Date/Time
ขั้นตอนที่ 2 สร้าง Module ขึ้นมาเอาโค้ดไปใส่
Option Compare Database
Function Age(varDate As Variant) As Integer
Dim varAge As Variant
If IsNull(varDate) Then
Age = 0
Exit Function
End If
varAge = DateDiff("yyyy", varDate, Now)
If Date < DateSerial(Year(Now), Month(varDate), Day(varDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function
Function AgeMonth(varDate As Variant) As Integer
Dim varAge As Variant
If IsNull(varDate) Then
AgeMonth = 0
Exit Function
End If
varAge = DateDiff("m", varDate, Now)
AgeMonth = CInt(varAge Mod 12)
End Function
ขั้นตอนที่ 3 สร้างคิวรี่ เปลี่ยนมุมมองเป็น SQL เอาโค้ดนี้ไปใส่
SELECT Table1.DateOfStartWork, IIf(Age([DateOfStartWork])<>0,Age([DateOfStartWork]) & " ปี " & AgeMonth([DateOfStartWork]) & " เดือน",AgeMonth([DateOfStartWork]) & " เดือน") AS อายุงาน
FROM Table1;
