;--[   Function: Year()    ]----------(last revised: 3/26/2002)-
;
;- Author:
;
;    ScriptLogic Corporation
;
;- Action:
;
;    Returns the year portion of a specific date.
;
;- Syntax:
;
;    Year ("date")
;
;- Parameters:
;
;    date  (Required / String)
;
;
;- Remarks:
;
;    If working with today's date, this function is not necessary since you could use the @YEAR macro.
;
;- Returns:
;
;    Returns the year portion of a specific date.
;
;- Dependencies:
;
;    None
;
;- Example:
;
;    $theyear=year("2001/04/01")
;
FUNCTION Year ($expd)
  $year=Val(Substr($expd,1,4))
ENDFUNCTION ; - Year -