كريستال ريبورت

بإمكانك تنسيق التاريخ كيفما تشاء :

showmessage(FormatDateTime('dddd,mmmm,yyyy',now)); // تاريخ طويل يظهر اليوم والشهر كتابة , حسب الإعدادات الإقليمية
showmessage(FormatDateTime('dd,mm,yyyy',now));//تاريخ قصير يظهر أربع خانات للسنة
showmessage(FormatDateTime('dd,mm,yy',now));//تاريخ قصير يظهر خانتين للسنة فقط
showmessage(FormatDateTime('dddd',now));//يعطيك اليوم كتابة

بادئ ذي بدي اشكرك على الرد

ولكن السؤال

هل يوجد من طريق لحساب عمر المنتج بين تاريخين

مثلا 01/02/2004 والتاريخ 03/05/2005

المطلوب الناتج

سنه واحده وثلاتة أشهر ويومبن

1 : 3 : 2

أولا اضف الوحدة dateutils الخاصة بدوال التاريخ .. ثم استخدم بعض هذه الدوال

HoursBetween يعيد الفرق بالساعات

DaysBetween الفرق بالأيام

YearsBetween الفرق بالسنين

كذلك بأمكانك إستخدام :

DecodeDateTime();

EncodeDateTime()

للتعامل مع متحولات رقمية أسهل

uses dateutils;     
//.......
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=floattostr(HoursBetween(DateTimePicker1.Date,DateTimePicker2.Date));
Edit2.Text:=floattostr(DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date));
Edit3.Text:=floattostr(YearsBetween(DateTimePicker1.Date,DateTimePicker2.Date));
end;

procedure TForm1.FormCreate(Sender: TObject);
var d,m,y:word;
begin
DecodeDate(date,y,m,d);
// عمليات على المتحولات
//d,m,y
date_Var:= EncodeDate(y,m,d);
end;

الف شكر استاذ ORWA