FUNCTION POPVDATE()

  Short:
  ------
  POPVDATE() Pops up a picklist of virtual dates

  Returns:
  --------
  <dSelected> => selected date

  Syntax:
  -------
  POPVDATE([dStart],[lWords],[cTitle])

  Description:
  ------------
  Pops up a virtual picklist of dates, beginning with
  the current date. As user scrolls down, date increases. As user
  scrolls up, date decreases. Page up/Page down move by 30 day
  increments. Ctrl-Pgup/Ctrl-Pgdn move by 365 day increments. Home
  key returns to the starting date.

  [dStart] the starting date, today's date by default

  [lWords] show dates as words, False by default

  [cTitle] popup box title, none by default

  Examples:
  ---------
   dDate := POPVDATE(date(),.t.,"Pick a Date")

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