birthday

[mehrnoush]

سلام
کسی میدونه با چه محاسباتی میشه سن دقیق فرد رو در آورد
مثلا به این صورت که طرف تاریخ تولدش رو وارد کنه و سیستم او نو از تاریخ امروز کم کنه و سن دقیق فرد رو بهش بگه ( خیلی مهمه)
ممنون

[vbhamed]

سلام

از تابع DateDiff استفاده كنيد، البته براي تاريخ ميلادي كار مي كنه
براي شمسي، ابتدا تاريختون رو به ميلادي تبديل كنيد و اختلافش رو با همين تابع بدست بياريد

[اوبالیت به بو]

Dim Number As Integer
Dim Day As Integer
Dim Mount As Integer
Dim year As Integer
Number = DateDiff("D", InputDate, Now)
year = Number \ 365
Mount = (Number Mod 365) \ 12
Day = ((Number Mod 365) \ 12) Mod 30
Print year
Print Mount
Print Day

InputDate: ورودي هستش كه شما خودتون بايد وارد كنيد.