تشخيص سن افراد

[Aminch.pc]

سلام
بازم يك سؤال ديگه و بازم تشكر
يك برنامه مي خواستم كه تاريخ تولدو بهش بدي مشخص كنه طرف تا به اين لحظه چند سال از عمرش مي گذره؟
اگه شمسي هم باشه بهتره

[xxxxx_xxxxx]

سلام
شمسي يا ميلادي بودنش فرقي نمي كنه چون تعداد روزهاي يك سال هميشه برابر هست.
حالا با توجه به اين كه هرسال دوازده ماه است و فرض مي كنيم هر ماه سي روز:


Yx = Year(Text1.Text)
Mx = Month(Text1.Text)
Dx = Day(Text1.Text)
Y = Year(Now) - Yx
M = Month(Now) - Mx
If M < 0 Then Y = Y - 1: M = M + 12
D = Day(Now) - Dx
If D < 0 Then M = M - 1: D = D + 30
MsgBox Y & "-" & M & "-" & D

تاريخ تولد رو تو text1 وارد كنيد، البته به ميلادي چون داريم با زمان حال ميلادي (Now) ميسنجيم. براي اين كه شمسي باشه و دقيق و از ابزارهايي كه تو همين سايت معرفي شده استفاده كنيد مثل Shamsi.dll اون وقت تو text1 تاريخ رو شمسي وارد كنيد و بجاي Now بنويسيد Shamsii و همينطور قبل از Year و Month و Day يك كلمه Shamsi اضافه كنيد (مثلاً ShamsiYear).
موفق باشيد/