Date2Year Function
Returns the Year from a given date/time.

Unit
QESBPCSDateTime

Declaration
Function Date2Year(const DT: TDateTime): Word;

Parameters
DT Date/Time to Convert.

Returns
the Year component, including Century.

Category
Date/Time Conversion Routines
Year Based Arithmetic Routines

Implementation

function Date2Year (const DT: TDateTime): Word;
var
     D, M: Word;
begin
     OptDecodeDateW (DT, Result, M, D);
End;


HTML generated by Time2HELP
http://www.time2help.com