FUNCTION POPVYEAR()

  Short:
  ------
  POPVYEAR() Pops up a picklist of virtual years

  Returns:
  --------
  <nSelected> => selected year

  Syntax:
  -------
  POPVYEAR([cTitle])

  Description:
  ------------
  Pops up a virtual picklist of years, beginning with
  the current year. As user scrolls down, year increases. As user
  scrolls up, year decreases. Home key returns to the starting
  year.

  [cTitle]  is a popup box title, none by default

  Examples:
  ---------
   nYear := POPVYEAR("Pick a Year")

  Source:
  -------
  S_DPOPS.PRG