在调用datetime函数取系统当前时间，如何把其年、月、日分割开来？

Question

var
 Year,Month,day:Word;
begin
  DecodeDate(Now,Year,Month,day);//分解日期
  ......
end;

Answer 1

now表示当前时间，year就是年，Month月,day日

Answer 2

procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);然后访问：
SystemTime.wYear
SystemTime.wMonth
SystemTime.wDay

Answer 3

YearOf(ADateTime):年
MonthOf(ADateTime):月
DayOf(ADateTime):日

Answer 4

jyqkr(酷鱼)说得对。 var
 Year,Month,day，mss:Word;
begin
  DecodeDate(Now,Year,Month,day,mss);//可以将时间精确到毫秒
  ......
end;

Answer 5

还有另外一个函数
Formatdatetime('yyyy',Now);
Formatdatetime('mm',now)
.........
Formatdatetime('yyyy-mm-dd  hh-ss',now)
呵呵

Answer 6

var
 datestr,yy,mm,dd:string; 
然后
datestr:=formatdatetime('YYYY-MM-DD',date);
     yy:=copy(datestr,0,4);  //年
     mm:=copy(datestr,6,2);  //月
     dd:=copy(datestr,9,2);   //日或者
dates也可。tr:=formatdatetime('yyyymmdd',date);