مثال للدالة Format و date diff

اخواني هل البرنامج فيه أخطاء؟

اريد فقط ان تجربوا البرنامج وتقولوا أنه فيه خطأ ولا

مرحبا اخي العزيز

يوجد خطأ لأن السنوات والشهور ثابته

السنوات 107

والشهور 7

حتى لو تم تغيير التاريخ

.. اتمنا التوفيق للجميع .. تحياتي

بسم الله

البرنامج حلو بس فيه اخطاء

هو صحيح العمر مش ثابت زي ما قال الاخ محمدvb بس في اخطاء زي انه بيحسب العمر اقل حوالي 3 اشهر

حاول وربنا يوفقك

أخواني مسحت البرنامج وعملته مرة ثانية وحطيت الكود ده بس لسه مش راضي يشتغل كويس ليه :(؟

Dim user, age, count As Integer

user = InputBox("Enter your birth day")
count = DateDiff("YYYY", user, Date)
age = Format(count, "Y")
MsgBox age