获取当前日期的年份

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

这就是我在这个阶段，但我敢肯定有一种方法来获得当前的一年，而不必手动输入在delphi代码中，会很多赞赏如果有人可以帮助我的代码。获取当前日期的年份

您是否已发现文档？和DateUtils的源代码？ –

或使用

正如@Remy指出的，Date比Now更重要。那么DateUtils.Today。

2013-10-14 18:24:45

我会使用'Date（）'而不是'Now（）'，因为不需要时间。 –

@RemyLebeau我相当肯定，在一整天的过程中，这一年永远不会改变！ –

我意识到这一点。关键是避免在不使用时返回的“TDateTime”的时间部分编码的开销。 –

回答