怎得到年、月、日？

1、

Year   :=   FormatDateTime('YYYY',Date);  
  Month   :=   FormatDateTime('MM',Date);  
  Day   :=   FormatDateTime('DD',Date);

 

2、

Delphi中自带   DecodeDate  
   
  它的申明为：   procedure   DecodeDate(Date:   TDateTime;   var   Year,   Month,   Day:   Word);  
   
  使用样例：  
   
  var  
      d:TDateTime;  
      year,month,day:Word;  
  begin  
      DecodeDate(d,year,month,day);  
  end;  

3、

DELPHI5，用DAYOF(DATE(),)，MONTHOF(DATE(),)， YEAROF(DATE(),) 

 

需要的单元  DateUtils