獲取當前日期的年份

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」的時間部分編碼的開銷。 –

回答