如何得到一个时间的年月日?

Question

如何得到一个时间的年月日？

Answer 1

decodedate(Date,year,month,day);
Date是你的日期,year,month,day是得到的年月日

Answer 2

procedure TMainForm.GetYMDTofDt(var y,m,d,t:string;dt:tdatetime);
var
  dt_str:string;
begin
  dt_str:= FormatDateTime('yyyy/mm/dd hh:mm:ss',dt);
  y:=copy(dt_str,1,4);
  m:=copy(dt_str,6,2);
  d:=copy(dt_str,9,2);
  t:=copy(dt_str,12,8);
end;

Answer 3

DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Answer 4

dateof((const AValue: TDateTime): Word;
monthof(const AValue: TDateTime): Word;
yearof((const AValue: TDateTime): Word;