كيف استخرج من datetimepicker

[TF6M]

1- يعني شوف سؤالك الأول :
كيف استطيع ان استخرج السنة وحدها من datetimepicker وكذلك اليوم والشهر لاستعمالهم في حسابات اخرى وشكراااا .
- جاوبتك على قدره كان يكفي أن تبدل MaskEdit1.Text بـ DateTimePicker1.Date
2- سؤالك التاني :
تريد حساب عمر الشخص إنطلاقا من تحديد تاريخ ميلاده في DateTimePicker .

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
  bDate:TDate;
  bJ,bM,bA:Word;
  J,M,A:Word;
begin
Try
 bDate:=DateTimePicker1.Date;
 DeCodeDate(bDate,bA,bM,bJ);
 DeCodeDate(Date,A,M,J);
 ShowMessageFmt('%d Année Et %d Mois Et %d Jour',[A-bA,M-bM,J-bJ]);
Except
On E:Exception Do
 ShowMessage(E.Message);
 End;
end; 


هذا مثال عام يعني لم أظع الحالات الإستثنائية فقط مجرد فكرة و الباقي عليك .
بالتوفيق ,,