| Date2Year Function | 
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 RoutinesImplementation
 
| function Date2Year (const DT: TDateTime): Word;
var
     D, M: Word;
begin
     OptDecodeDateW (DT, Result, M, D);
End; | 
|  |