كيفية حساب العمر عن طريق ادخال السنة فقط

[Anter2010]

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

واجهتني هذه النقطة في عملية تحويل العمر عن طريق ادخال سنة الميلاد في edit فقط فتعطيني العمر

في edit2

PHP كود :

function Years(PastDate,CurrentDate:TDate):integer;
var
  PastMonth,PastDay,PastYear,CurrentYear,CurrentMonth,CurrentDay:word;
begin
  DecodeDate(PastDate,PastYear,PastMonth,PastDay);
  DecodeDate(CurrentDate,CurrentYear,CurrentMonth,CurrentDay);
  if (PastYear=CurrentYear) and (PastMonth=CurrentMonth) and (PastDay=CurrentDay) then
    Result:=0
  else
  begin
    Result:=CurrentYear-PastYear;
    if (PastMonth>CurrentMonth) then
      Dec(Result)
    else
    begin
      if PastMonth=CurrentMonth then
        if (PastDay>CurrentDay) then
          Dec(Result);
    end;
  end;
end;

procedure TForm1.dtp1Change(Sender: TObject);
begin
 Edt3.Text := IntToStr(YearsBetween(dtp1.Date,now));
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
 Edt2.Text:=Format(' %d ', [Years(StrToDate('03/06/1978'),Date)]);
 end;

end. 


محاولة تغير التاريخ كمل ب EDIT1.TEXT