محاسبه سن

[star.68]

با سلام
تابعی میخواستم که کاربر بعد از انتخاب سال ، ماه و روز تولدش توسط ابزار DateTimePicker بتونه سن دقیق شو حساب کنه.

[mvig]

مگه msdn ندارى؟

---

خودت برو نگاه كن ديگه.
تمام كدها اونجا نوشته شده.كافيه انگليسيت خوب باشه.

[HoseinVig]

خودت بخای سنتو حساب کنی چکار میکنی؟
تاریخ جاریو منهای تاریخ تولد میکنی دیگه

[star.68]

با سلام
تابعی میخواستم که کاربر بعد از انتخاب سال ، ماه و روز تولدش توسط ابزار DateTimePicker بتونه سن دقیق شو حساب کنه.

ممنون از راهنمایی تون! خودم می دونستم فقط نمی دونستم باید چه جوری بنویسمش ، که آخر اینطوری نوشتم.
Public Function age(ByVal d As Date)
Dim year, month, day, sum1, sum2, kasr As Integer
Dim result As Double
year = Date.Now.Year
year *= 365
month = Date.Now.Month
If (month > 6) Then
month *= 30
Else
month *= 31
End If
day = Date.Now.Day
sum1 = year + month + day
'*************************
year = d.Year
year *= 365
month = d.Month
If (month > 6) Then
month *= 30
Else
month *= 31
End If
day = d.Day
sum2 = year + month + day
'*************************
kasr = sum1 - sum2
result = kasr / 365.25
result = Math.Truncate(result)
Return result

End Function