خطأ فى حساب العمر

[محمد7788]

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

دالة حساب السنة

سنة: DateDiff("yyyy";[بيانات الطلاب]![تاريخ الميلاد];[بيانات المعهد]![السن فى اكتوبر])

دالة حساب اليوم

d: DateDiff("d";DateAdd("m";[m2];[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])

يوم1: IIf(DateDiff("d";DateAdd("m";IIf([d]<0;[m2]-1;[m]);[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])=30;[d];DateDiff("d";DateAdd("m";IIf([d]<0;[m2]-1;[m]);[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر]))

دالة حساب الشهر

m: DateDiff("m";DateAdd("yyyy";[سنة];[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])

شهر1: IIf([d]<0;[m]-1;[m])

ولكن بلاقى مشكة ان الايام فيها ارقام سالبة او عدد الايام بتبقى كتير جدا

انا بحاول ياريت حد يعرفنى الخطأ فين مع توضيخ الخطأ لكى اتعلم 

[jo_2010]

في 12‏/6‏/2024 at 11:02, محمد7788 said:

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

دالة حساب السنة

سنة: DateDiff("yyyy";[بيانات الطلاب]![تاريخ الميلاد];[بيانات المعهد]![السن فى اكتوبر])

دالة حساب اليوم

d: DateDiff("d";DateAdd("m";[m2];[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])

يوم1: IIf(DateDiff("d";DateAdd("m";IIf([d]<0;[m2]-1;[m]);[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])=30;[d];DateDiff("d";DateAdd("m";IIf([d]<0;[m2]-1;[m]);[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر]))

دالة حساب الشهر

m: DateDiff("m";DateAdd("yyyy";[سنة];[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])

شهر1: IIf([d]<0;[m]-1;[m])

ولكن بلاقى مشكة ان الايام فيها ارقام سالبة او عدد الايام بتبقى كتير جدا

انا بحاول ياريت حد يعرفنى الخطأ فين مع توضيخ الخطأ لكى اتعلم 

ممكن مرفق للتعديل علية

[AlwaZeeR]

Function CalculateAge(BirthDate As Date) As Integer
    Dim Age As Integer
    Dim CurrentDate As Date
    
    CurrentDate = Date
    Age = DateDiff("yyyy", BirthDate, CurrentDate)
    
    If Format(BirthDate, "mmdd") > Format(CurrentDate, "mmdd") Then
        Age = Age - 1
    End If
    
    CalculateAge = Age
End Function

الاستدعاء في الاستعلام هكذا:
 

SELECT 
    [YourTableName].[BirthDate], 
    CalculateAge([BirthDate]) AS Age
FROM 
    [YourTableName];

 

[محمد7788]

2 ساعات مضت, jo_2010 said:

ممكن مرفق للتعديل علية

تفضل اخى الكريم 

الدوال موجودة فى الاستعلام 

وانا محتاج حساب سن الطالب فى 1/10/2023 وده حقل موجود فى جدول بيانات المعهد لانى طبعا هغيره كل سنة

فأنا محتاج حساب السن فى الاستعلام بناءا عن خانة تاريخ الميلاد الموجودة فى جدول بيانات الطلاب وخانة السن فى اول اكتوبر الموجودة فى جدول بيانات المعهد

مشروع.rar

تم تعديل يونيو 13 بواسطه محمد7788

[jo_2010]

45 دقائق مضت, محمد7788 said:

تفضل اخى الكريم 

الدوال موجودة فى الاستعلام 

وانا محتاج حساب سن الطالب فى 1/10/2023 وده حقل موجود فى جدول بيانات المعهد لانى طبعا هغيره كل سنة

فأنا محتاج حساب السن فى الاستعلام بناءا عن خانة تاريخ الميلاد الموجودة فى جدول بيانات الطلاب وخانة السن فى اول اكتوبر الموجودة فى جدول بيانات المعهد

مشروع.rar 204.12 kB · 2 downloads

جرب ووافينى بالنتيجة

مشروع_2.accdb

[AlwaZeeR]

لا حاجة لكل هذه الاكواد استاذ jo_2010 
لا حاجة لكل هذه التعقيدات 

فقط وحدة بسيطة مكونة من عدة اسطر تفي بالغرض وخاصة ان السائل في بداية مشواره في الاكسس

اليك التعديل بوحدة بسيطة جدا تفي بالغرض وتحسب العمر باليوم والشهر والسنة من خلال عمر الطالب والتاريخ المذكور في جدول بيانات المعهد
ونصيحة للاخ السائل بما انك في البدايات لمشروعك قم بتغيير كل المسميات العربية الى الانجليزية او بمسميات عربية حروف انجليزية لتجنب الاخطاء والمشاكل المستقبلية

 

اليك المرفق:
 

مشروع.accdb

[محمد7788]

منذ ساعه, jo_2010 said:

جرب ووافينى بالنتيجة

مشروع_2.accdb 988 kB · 5 downloads

استاذى الغالى بارك الله فيك

هو بس كنت عاوز احسب العمر على الحقل الموجود بيانات المعهد واسمه السن فى اول اكتوبر لانه بيتغير كل سنة

ثانيا خانة اليوم انا محتاج يكون الموجود فيها الرقم فقط يعنى مثلا "7" بدون كلمة يوم وبدون الصفر على الشمال وكذلك الشهر والسنة

منذ ساعه, AlwaZeeR said:

لا حاجة لكل هذه الاكواد استاذ jo_2010 
لا حاجة لكل هذه التعقيدات 

فقط وحدة بسيطة مكونة من عدة اسطر تفي بالغرض وخاصة ان السائل في بداية مشواره في الاكسس

اليك التعديل بوحدة بسيطة جدا تفي بالغرض وتحسب العمر باليوم والشهر والسنة من خلال عمر الطالب والتاريخ المذكور في جدول بيانات المعهد
ونصيحة للاخ السائل بما انك في البدايات لمشروعك قم بتغيير كل المسميات العربية الى الانجليزية او بمسميات عربية حروف انجليزية لتجنب الاخطاء والمشاكل المستقبلية

 

اليك المرفق:
 

مشروع.accdb 2.13 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

استاذى الفاضل شكرا جدا على الجهد 

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

وشاكر جدا للنصيحة

[AlwaZeeR]

مشروع.accdb

[محمد7788]

الف شكر jo_2010  وكذلك الاستاذ AlwaZeeR على جهدهم 

وتم عمل المطلوب كما اريد بالضبط اكرر شكرى للاستاذ AlwaZeeR

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

[عبد اللطيف سلوم]

تفضل 

نموذج جاهز لحساب العمر 

حساب-العمر.accdb