السلام عليكم
المشكلة اني بحسب العمر من تاريخ الميلاد والتاريخ الحالي ولقيت الكود فعلا ونجح معايا بس طلعلي العمر علي هيئة 25/2/14 يعني السنة والشهر واليوم انا مش معترضة والله بس حبيت اكتب في المعايير اني عايزه الاعمار اللي اكبر من 25/2/3 اقصد 25 سنه وشهرين وتلات ايام
بس دايما معترض علي طريقة كتابة الطلب بتاعي ياريت لو حد يديني الصيغة علما بان الكود المستخدم كالتالي
الكود ده حطيته في الاستعلام
Expr1: XAge([Client_Birth_Date]) & "/ " & AgeMonths([Client_Birth_Date]) & "/ " & AgeDays([Client_Birth_Date])
وباقي الكود التالي حطيته في موديول لوحده
Function XAge(varClient_Birth_Date As Variant) As Integer
Dim varAge As Variant
If IsNull(varClient_Birth_Date) Then XAge = 0: Exit Function
varAge = DateDiff("yyyy", varClient_Birth_Date, Now)
If Date < DateSerial(Year(Now), Month(varClient_Birth_Date), Day(varClient_Birth_Date)) Then
varAge = varAge - 1
End If
XAge = CInt(varAge)
End Function
Function AgeMonths(ByVal StartDate As String) As Integer
Dim tAge As Double
tAge = (DateDiff("m", StartDate, Now))
If (DatePart("d", StartDate) > 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
Function AgeDays(ByVal StartDate As String) As Integer
Dim DAge As Double
DAge = (DateDiff("D", StartDate, Now))
If (DatePart("d", StartDate) > DatePart("d", Now)) Then
DAge = DAge - 30
End If
If DAge < 0 Then
DAge = DAge + 30
End If
AgeDays = CInt(DAge Mod 30)
End Function
علي فكرة انا حطيت الموضوع ده في منتدي تاني محدش رد عليه اتمني انه يلاقي اهتمام في منتداكم
وشكرا ليكم