SP_POPVYEAR

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

 

SP_POPVDATE

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

Design of Clipper

build the truly reusable routine