26-09-2009, 12:36 PM
اخي الكريم ساشرح لك ما اود القيام به
لدي datetimepicker1 حيث اختار فيه تاريخ ميلاد شخص معين ولدي label3 اضع فيه عمر الشخص وطبعا لحساب عمر الشخص تعمل مقارنة بين سنة ميلاد الشخص المووجودة في datetimepicker والتاريخ الموجود في النظام.وتاريخ النظام موجود في label1 .
جربت هذه الطريقة لكن عند ادخال اي تاريخ تظهر الرسالة الاخيرة فقط.
لدي datetimepicker1 حيث اختار فيه تاريخ ميلاد شخص معين ولدي label3 اضع فيه عمر الشخص وطبعا لحساب عمر الشخص تعمل مقارنة بين سنة ميلاد الشخص المووجودة في datetimepicker والتاريخ الموجود في النظام.وتاريخ النظام موجود في label1 .
جربت هذه الطريقة لكن عند ادخال اي تاريخ تظهر الرسالة الاخيرة فقط.
كود :
var
date,an,anNais:string;
age:integer;
begin
if not(DateTimePicker1.Color=clred) then
try
an:=copy(datetostr(now),7,4);
anNais:=copy(datetimepicker1.Format,7,4) ;
age:=strtoint(an)-strtoint(anNais);
label3.Caption:=inttostr(age);
except
begin
ShowMessage('Date de naissance incorrecte');
DateTimePicker1.SetFocus
end;
end;