我是初学的，请问怎么获得日期的年月日

[linleming]

想分别得到一个日期变量中的年月日，分别赋给三给字符串变量？

[sxy_9761]

uses DateUtils

var
lday,lmonth,lyear : string;
begin
lday := inttostr(dayof(now));
lmonth := inttostr(monthof(now));
lyare := inttostr(yearof(now));
end;

[syl79]

var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);

[ziqing]

dayof(now)
monthof(now)
yearof(now)
返回的都是INTEGER类型

[ziqing]

说错了，呵呵返回是WORD类型

[hhzqf1980]

inttostr(dayof(now));
inttostr(monthof(now));
inttostr(yearof(now));
还有就是别忘了：
uses DateUtils

[lzy6204]

delphi里面的取日期函数就如楼上几位所说的
要是用SQL语句实现，应该是：
year(),month(),day()

[hksl]

可以用这个

procedure Tfrmmain.FormShow(Sender: TObject);
var year,month,day:word;

begin
decodeDate(now,year,month,day);
statusbar1.Panels[2].Text:=inttostr(year)+'年'+ inttostr(month)+'月'+inttostr(day)+'日' ;
end;

[linleming]

谢谢各位，昨天回家试的所以现在才结帖！

[koma2003]

用DecodeDate