با سلام
به این شکل :
procedure DecodeDate ( const SourceDate : TDateTime; out Year, Month, Day : Word ) ;
اینم یک مثال :
var
myDate : TDateTime;
myYear, myMonth, myDay : Word;
begin
// Set up the myDate variable to have a December 2000 value
myDate := StrToDate('29/12/2000');
// Now add a month to this value
myDate := IncMonth(myDate);
// And let us see what we get
DecodeDate(myDate, myYear, myMonth, myDay);
ShowMessage('myDate now = '+DateToStr(myDate));
ShowMessage('myDay = '+IntToStr(myDay));
ShowMessage('myMonth = '+IntToStr(myMonth));
ShowMessage('myYear = '+IntToStr(myYear));
end;
اینم نتیجه این مثال :
myDate now = 29/01/2001
myDay = 29
myMonth = 1
myYear = 2001
اینم آدرس سایتی که میتونی بیشتر اطلاعات دریافت کنی :
http://www.delphibasics.co.uk/RTL.asp?Name=DecodeDate
موفق باشی .