معرفة تاريخ الولادة

[zhajaj]

أخوتي الأعزاء :

كثيراً ما نجد أمثلة عن حساب العمر أو الفارق بين تاريخين ... ماذا لو كان العمر معلوماً والمطلوب معرفة تاريخ الميلاد .

أرجو تزويدنا بالكود اللازم لحساب تاريخ الولادة استناداً للعمر المعطى .

ولكم كل الشكر والمحبة .

[Ommda]

dateadd("m",9,date)

يقوم هذا بإضافه 9 أشهر بدايه من اليوم

dateadd("m",9,"18.07.2007")

يقوم هذا بإضافه 9 أشهر بدايه من يوم 18/07/2007

[zahrah2016]

بارك الله فيك اخي الفاضل العمده على المشاركه

اخي الفاضل zhajaj

هذا برنامج تم عمله مخصوص لهذه العملية وستجد تعليمات البرنامج على النموذج

za_BirthOfDate.rar

[منذر عساج]

بارك الله فيك أخت زهرة

عطرت المنتدى بمرورك الكريم

[ابو ناره]

مشششششششششششششششششششششششكوررررررررررررررررررررررررررررررر

[zhajaj]

ألف شكر لجميع المشاركين وخصوصاً خبيرتنا الغالية زهرة .

[zhajaj]

ألف شكر لجميع المشاركين وخصوصاً خبيرتنا الغالية زهرة .

أختي الفاضلة والعزيزة زهرة :

ماذا لو كان العمر مثلاً 5 سنوات و 3 أشهر و 2 يوم

أرجو إيضاح طريقة حساب تاريخ الولادة استناداً لتلك المعطيات

ولك كل الشكر والتقدير والاحترام

[zhajaj]

إلى الأخت الغالية : زهرة المحترمة .

لقد طلبت في الرد السابق حلاً للمشكلة وأرجو أن تتحفيننا بالجواب الشافي لها

مع كل الاحترام والتقدير للكِ ولجميع المشرفين والخبراء وأعضاء المنتدى .

[Accessna]

دالة لإرجاع تاريخ الميلاد بالسنة والشهر واليوم والساعة والدقيقة والثانية :

Function getBirthdate(yy As Integer, _
             Optional mm As Integer = 0, _
             Optional dd As Integer = 0, _
             Optional hh As Integer = 0, _
             Optional nn As Integer = 0, _
             Optional ss As Integer = 0) As Date
  
  getBirthdate = DateSerial(Year(Now) - yy, _
                            Month(Now) - mm, _
                            Day(Now) - dd) + _
                 TimeSerial(Hour(Now) - hh, _
                            Minute(Now) - nn, _
                            Second(Now) - ss)
End Function

وهذه طريقة استخدامها :

Sub Test()
  MsgBox getBirthdate(5, 3, 2, 1, 30, 15)
End Sub

[zhajaj]

مشكور أخي Accessna على ردك وسأجربه ز

ولك مني كل الشكر والمحبة

[محب العلم]

لا ارى أية فائدة تطبيقية ترجى من هذا الموضوع ، أم أنني أغفلت أمرا ما

تحياتي

[Accessna]

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

فتح ملف بالمستشفى يحتاجون إلى معرفة عمر المريض وعادة ما يسألون عن العمر ويتركون تاريخ الميلاد .. إلى هنا لا مشكلة ولكن

المشكلة تبدأ عندما تمضي السنون ويبقى العمر ثابت لا يتحرك وهنا المشكلة وخصوصا أن العلاج مرتبط بعمر المريض بشكل قوي .

قد يقول قائل يمكن سؤال المريض عن عمره في كل مراجعة ولا داعي لتسجيل العمر وأخذ مساحة تخزين لا داعي لها .. فأقول إلى هنا لا مشكلة ولكن

ماذ تفعل في في النساء اللاتي لا تريد أن تكبر عن 25 سنة حتى وأن بلغت الخمسين وهذا بالتأكيد سوف يؤثر بالعلاج المرتبط بعمر المريض .

الحل هو تسجيل تاريخ الميلاد وقيام البرنامج بحساب العمر وسيكون خطأ العمر ثابت وغير متراكم عبر السنين فالمريض قبل 25 سنة والذي كان عمره 25 سنة ولو كان كاذبا سيصبح عمره الآن خمسون سنة ولو أصر على الخمسة والعشرين .

[محب العلم]

[أبا عمر]

ينقل 
.......