怎样获得系统时间的年？

Question

怎样获得系统时间的年？

Answer 1

Returns the year represented by a TDateTime value.function YearOf(const AValue: TDateTime): Word;uses dateutils

Answer 2

var sYear:string;
begin
  sYear:=formatdatetime("yyyy",now);
end;

Answer 3

还有一个方法
var
y,m,d:word;
DecodeDate(now, Y, M, D);
y年  M月  D日

Answer 4

单元：SysUtils
定义：procedure DecodeDate(date:Tdatetime;var year,month,day:Word)；
功能：Decodedate打断Tdatetime成为年月日值
      Decodedate 过程打断由Date参数说明的值成为年月日的值。如果Tdatetime值是小于或等于0，那么返回的年月日的值为0。