Manejo de fechas.

function VFP_Year(const dExpression: TDate): Integer; var Day, Month, Year : Word; begin DecodeDate(dExpression,Year,Month,Day); Result := Year; end;