طريقة حساب العمر بعد إدخال تاريخ الميلاد

حساب العمر يعتمد على تخزين تاريخ الميلاد

Dim Birth as Date
Birth = DateValue(txtDOB)

Dim Age as Integer
Age = Int(DateDiff("D", Birth, Now) / 365.25

ملاحظات هامة وتنبيهيه ! :

اقتباس

مقتب من الأخ Xacker

1- كتابة الموضوع ورفعه لا يجوز ان تتم في نفس اليوم (يجب ان تنتظر مرور يوم على الاقل وهذا من قواعد المنتدى)

2- حسن الطلب, عبارة مثل "غريب أمر هذا المنتدى ! يعج بالخبراء ولكن لا أحد يجيب" غير جميلة ابدا.. لا بل تغيظ وتجعل المرء يترك المشاركة فورا لتذهب الى الجحيم.

3- المنتدى لا يدفع فلوس ورواتب للاعضاء للمشاركة والرد, لذا ليس من الواجب على اي احد ان يفعل وليس هناك سوى الثواب.

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