获取当前日期的年份

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也是如此。