[الحازمي]

أخي سعيد

هذه الدالة لحساب العمر بالسنين والأشهر والأيام،
ويصلح للتاريخ الميلادي والهجري،
وبدون التطرق لتنسيق التاريخ في النظام،

ولو أردت مثلا استخدامه في حساب العمر أرسل له:
تاريخ الميلاد في كل من fromYear وfromMonth وfromDay
وتاريخ اليوم في كل من toYear وtoMonth وtoDay

PHP كود :

Public Sub OldCalc(fromYear As Integer, fromMonth As Integer, fromDay As Integer, toYear As Integer, toMonth As Integer, toDay As Integer)
    Dim years = toYear - fromYear
    Dim months = toMonth - fromMonth
    Dim days = toDay - fromDay
    If days < 0 Then days = days + 30 : months = months - 1
    If months < 0 Then months = months + 12 : years = years - 1
    txt_Years.Text = years
    txt_Months.Text = months
    txt_Days.Text = days
End Function 


أخي سعيد
إن كان هناك استفسار في الكود فأخبرني