كيف أقوم بحساب العمر بالسنة و الشهر و اليوم

Private Sub Form_Load()
Dim BDay As String
Dim tmp() As String
BDay = InputBox("enter ur birthday")
If IsDate(BDay) Then
    tmp = Split(BDay, "/")
    Label1.Caption = "you are " & Year(Now) - Val(tmp(UBound(tmp))) & " years old"
    Label2.Caption = "and " & Month(Now) - Val(tmp(UBound(tmp) - 1)) & " months"
    Label3.Caption = "and " & Day(Now) - Val(tmp(UBound(tmp) - 2)) & " days"
End If
End Sub

ميلادي في 19/7/1987 ويقول لي برنامج هذا الكود ان عمري 17 سنه و 0 اشهر و -13 يوم اي اني ساصبح 17 بعد 13 يوم :)

السلام عليكم و رحمة الله و بركاته

بارك الله فيك يا أخ راكان على هذه المساعدة و جزاك الله كل خير

**مراد**

السلام عليكم ورحمة الله وبركاته و بارك الله فيكم أخوتي ..

أريد أن أعرض عليكم هذا الكود الذي كتبته و هو يرد العمر بشكل String ولكن لا ميزته أنه لا يعيد أرقاما سالبة ولكن يعيد العمر الحقيقي أي حتى لو كان باقي لكي تتم السنة يوم واحد يقول البرنامج أن العمر هو العمر وأحد عشر شهرا و ثلاثون يوما أي أنه أكثر دقة ..

أريد رأيكم بالكود وأسألكم دعوة صالحة :

Function MyAge(Days:Word;BDate:TDateTime):String;
 var
  BYear,NYear,BMonth,NMonth,BDay,NDay,x:Word;
  Age_Years,Age_Months,Age_Days:Word;
 Begin
{Extracting the Date ...}
    BYear:=YearOf(BDate);
    BMonth:=MonthOf(BDate);
    BDay:=DayOf(BDate);
    NYear:=YearOf(Now);
    NMonth:=Monthof(Now);
    NDay:=Dayof(Now);
{Extracting the Date ... end.}

    If NDay>=BDay then
       Begin{NDay>=BDay}
         NDay:=NDay-BDay;
         If NMonth>=BMonth then
            Begin
             NMonth:=NMonth-BMonth;
             Age_Years:=NYear-Byear;
             Age_Months:=NMonth;
             Age_Days:=NDay;
            end else
            Begin
             NYear:=NYear-1;
             NMonth:=NMonth+12-BMonth;
             Age_Years:=NYear-BYear;
             Age_Months:=NMonth;
             Age_Days:=NDay;
            end;
       end{NDay>=BDay}
       else{NDay<BDay}
         Begin{NDay<BDay}
           If NMonth>=BMonth then
              Begin
               NDay:=NDay+DaysInAMonth(NYear,NMonth-1);
               NMonth:=NMonth-1-BMonth;
               NYear:=NYear-BYear;
               NDay:=NDay-BDay;
               Age_Years:=NYear-BYear;
               Age_Months:=NMonth;
               Age_Days:=NDay;
              end else
              Begin
               NYear:=NYear-1;
               If NMonth>1 then
                  NDay:=NDay+DaysInAMonth(NYear,NMonth-1)
                  else
                  NDay:=NDay+DaysInAMonth(2000,12);
                  NMonth:=NMonth+12-BMonth;
                  Age_Years:=NYear-BYear;
                  Age_Months:=NMonth;
                  Age_Days:=NDay;
              end;
         end;{NDay<BDay}
MyAge:=inttostr(Age_Years)+' years ,'+inttostr(Age_Months)+' months and '+inttostr(Age_Days)+' days ...';

 end;{MyAge Function ...}

يا جماعة أتمنى أن تجربوا برنامجي اللي عملته هديه لجامعه أهلا عرب ...

وسأعمل هدية لكمن أيضا ...

ويوجد في جامعه أهلا لاعرب شرح للبرنامج بالكود ...

والبرنماج شكله جذاب ....

حملوه من المرفقات ...

برنامج ايجاد الفرق بين تاريخين.exe