YearOf

(所在单元：DateUtils)
　　功能说明：根据指定的日期，返回年。

　　参考实例：

　　Label1.Caption := IntToStr(YearOf(Date));

　　假设当前日期为2010年1月2日，那么Label将显示为2010。