Unit
IB_Utils

Declaration
Function YearFromDateTime(ADateTime: TDateTime ): word;