获取当前日期的年份

Question

if StrToInt(sY) > 2013 then
begin
  bDate := False;
  ShowMessage('Year is bigger than current year');
  Exit;
end;

这是我在这个阶段所拥有的,但我很确定有一种方法可以获得当前年份,而不必在delphi代码中手动输入它,如果有人可以帮我处理代码,我将非常感激.

Answer 1

DateUtils.YearOf(Now) 会帮你当年的,

或使用

SysUtils.CurrentYear.

正如@Remy指出的那样,Date更重要的是Now.也是DateUtils.Today.