مشكلة فى حساب السن سنة وشهر بناء على تاريخ الميلاد محدث من الرقم القومى

[أكسس وبس]

اخوانى

بالبحث وجدت عمل للاستاذ زهرة العبدلله لحساب السن بالسنة والشهر بناء على ادخال تاريخ الميلاد

Option Explicit
'*************************************************************
' Age()   اسم دالة السنوات
'*************************************************************
Function Age(varDateBirth As Variant) As Integer
  Dim varAge As Variant
  If IsNull(varDateBirth) Then Age = 0: Exit Function
  varAge = DateDiff("yyyy", varDateBirth, Now)
  If Date < DateSerial(Year(Now), Month(varDateBirth), _
                      Day(varDateBirth)) Then
     varAge = varAge - 1
  End If
  Age = CInt(varAge)
End Function
'*************************************************************
' AgeMonths()   اسم دالة الشهر
'*************************************************************
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

****************************************************************************

Private Sub DateBirth_AfterUpdate()
Me.strAge = Age([DateBirth]) & " سنه " & "  و  " & AgeMonths([DateBirth]) & " شهر"
End Sub

تعتمد على ادخال تاريخ الميلاد ولكن فى الملف المرفق عملت تاريخ الميلاد ناتج من معادلة بعد التحديث للرقم القومى فلم احصل على نتيجة السن وعند ادخال تاريخ الميلاد يدوي نحصل على تاريخ الميلاد

New Microsoft Access Database.rar

تم تعديل أبريل 5, 2018 بواسطه أكسس وبس

[أبو آدم]

أخي العزيز

تم التعديل

كنت تستخدم الحدث الخطأ

تم اضافة الكود للحدث المناسب ... تفضل

Private Sub DateOfBirth_AfterUpdate()
''عذرا سيتم التعديل استخدام حدث خاطئ
'Me.strAge = Age([DateOfBirth]) & " سنه " & "  و  " & AgeMonths([DateOfBirth]) & " شهر"
End Sub

Private Sub Form_Current()
'' هنا تم التعديل Nart Lebzo 05/04/2018
If Not IsNull(DateOfBirth) Then ' To avoid error messages when the date field is empty ... لتجنب رسائل الخطأ عندما يكون حقل تاريخ الميلاد فارغا
Me.strAge = Age([DateOfBirth]) & " سنه " & "  و  " & AgeMonths([DateOfBirth]) & " شهر"
End If
End Sub

تركت لك ملاحظات التعديل حسب ما اعتدنا عليه 

يتم التطبيق و التأكد من النتائج ...

..........................................

 

تفضل أخي العزيز

التطبيق معدلاً ... باسم جديد للملف حتى لا تختلط المرفقات ..

شكرا

و الله من وراء القصد ....

UP_NA_Calculate age.accdb

[أكسس وبس]

اكرمك الله وجزاك الله خيرا