delphi中怎么取系统的年、月、日

Question

label.caption:=formatdatetiem('yyyymmdd',now());

Answer 1

up
用formatdatetime('yyyy',now());     //取年份

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  year,month,day:word;
  date:tdate;
begin
date:=now;
decodedate(date,year,month,day);
showmessage('year:'+inttostr(year));
showmessage('month:'+inttostr(month));
showmessage('day:'+inttostr(day));
end;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  year,month,day:word;
  date:tdate;
begin
date:=now;
decodedate(date,year,month,day);
showmessage('year:'+inttostr(year));
showmessage('month:'+inttostr(month));
showmessage('day:'+inttostr(day));
end;
end;

Answer 4

还可以用GetLocalTime或getSystemtime 
  其中Tsystem是一个记录：
  PSystemTime = ^TSystemTime;
  TSystemTime = record    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
不过挺烦的；

Answer 5

用WINDOWS API函数：getlocaltime()
procedure TForm1.Button1Click(Sender: TObject);
var currenttime:SYSTEMTIME;
begin
    getlocaltime(currenttime);
    label1.caption:=strtoint(currenttime.wYear);//获得当前年份，并显示在label1上
    //...;
end;至于其他的数据成员如wMonth等参看楼上所说的。

Answer 6

year:=yearof(now);
month:=monthof(now);
day:=dayof(now);

Answer 7

year:=yearof(now);
month:=monthof(now);
day:=dayof(now); 
or 用WINDOWS API函数：getlocaltime()//嘿嘿