سلام به شما دوست عزیز
اولا شما باید روز کامپیوتر خود را تنظیم کنید (با دابل کلیک روی ساعت پایین سمت راست دسک تاپ) و سپس می توانی از این تابع استفاده کنی تابع Datediff است که شکل زیر را دارد
("تاریخ پایان ","تاریخ شروع","پاارامتر")DateDiff
که پارامتر هایش این ها هستند
yyyy براساس سال
Q بر اساس فصل
m بر اساس ماه
y بر اساس روزی از سال
d بر اساس روز
w بر اساس روزی از هفته
ww بر اساس هفته
h بر اساس ساعت
n بر اساس دقیقه
s بر اساس ثانیه
که بر اساس هر یک از این پارمتر ها تاریخ اول را از تاریخ دوم کم می کند
این از تابع حالا نحوه استفاده از آن این گونه است که یک متغییر تعریف می کنید از نوع long و جواب را در آن قرار بده و بعد چاپ کن
مثال
Dim A as long
("A=Datediff("yyyy","7/4/76","7/4/86
Print A
الان این کد ها را بذاری در یک Button در فرم عدد 10 را به معنای 10 سال اختلاف است
حالا یه چیز دیگه هم می گم مشکل برات پیش نیاید
1- تابع Date تاریخ کامپیوتر را می دهد
2- تابع Now تاریخ و ساعت کامپیوتر را با هم می دهد
این را برای این گفتم تا می خواستی تاریخ تولد را از تاریخ فعلی کم کنی برای همین گفتم
امیدوارم به دردت بخورد