我想获取当前年，当前月，并且转换成数值型，应该怎么写？

Question

我想获取当前年，当前月，并且转换成数值型，应该怎么写？

Answer 1

var
  year,month:integer;
begin
  year:=StrToInt(FormatDateTime('yyyy',now));
  month:=StrToInt(FormatDateTime('m',now));
end;

Answer 2

var
  iYear, iMonth, iDay: Word;
begin
  DecodeDate(Date(), iYear, iMonth, iDay);
end;

Answer 3

delphi有几个提取时间函数：yearof(),monthof(),dayof()
function YearOf(const AValue: TDateTime): Word;

Answer 4

这种方法最好：var
  Dyear,Dmonth:integer;
begin
  Dyear:=StrToInt(FormatDateTime('yyyy',now));
  Dmonth:=StrToInt(FormatDateTime('m',now));
end;

Answer 5

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Answer 6

var 
y,m:integer;
begin
y:=StrToInt(formatdatetime('yyyy'now));
m:=StrToInt(formatdatetime('mm'now));
end;