Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBCHDATE.ZIP
Filename : DATES.PRG

*--- DATES.PRG
*--- PROGRAM TO GET STARTING AND ENDING DATES FOR REPORTS, SEARCHES, ETC.
*--- CREATES PUBLIC VARIABLES 'START' AND 'END'
*--- TO EXECUTE, SIMPLY TYPE 'DO DATES'
*--- WRITEN BY JEFF SOVEL
*--- 6801 E. 15 MILE RD
*--- STERLING HEIGHTS, MI 48077
*--- 313-252-2312
*--- UPDATED 12-23-86

PUBLIC START, END
SET TALK OFF
SET SCOR OFF
SET STAT OFF
SET BELL OFF

*--- SET UP SCREEN ---*
SET COLOR TO
CLEAR
SET COLOR TO W+/B
@ 9,24 CLEAR TO 23,58
@ 9,25 TO 13,35
@ 9,36 TO 13,46
@ 9,47 TO 13,57
@ 14,25 TO 18,35
@ 14,36 TO 18,46
@ 14,47 TO 18,57
@ 19,25 TO 23,35
@ 19,36 TO 23,46
@ 19,47 TO 23,57

@ 10,28 SAY "Home"
@ 10,41 SAY CHR(24)
@ 10,51 SAY "PgUp"
@ 16,27 SAY CHR(27)
@ 16,54 SAY CHR(26)
@ 22,29 SAY "End"
@ 22,41 SAY CHR(25)
@ 22,51 SAY "PgDn"
@ 1,15 CLEAR TO 5,35
@ 1,15 TO 5,35 DOUBLE
@ 1,45 CLEAR TO 5,65
@ 1,45 TO 5,65 DOUBLE

SET COLOR TO GR+/B
@ 11,27 SAY "Previous"
@ 11,38 SAY "Previous"
@ 11,49 SAY "Previous"
@ 12,28 SAY "Month"
@ 12,40 SAY "Day"
@ 12,51 SAY "Year"
@ 20,28 SAY "Next"
@ 20,40 SAY "Next"
@ 20,51 SAY "Next"
@ 21,28 SAY "Month"
@ 21,40 SAY "Day"
@ 21,51 SAY "Year"
@ 1,18 SAY " Starting Date "
@ 1,49 SAY " Ending Date "
SET COLOR TO R+/N
@ 7,17 SAY "Use cursor keys to adjust date and press "

*---- KEY DEFINITIONS ---*
UPARROW = CHR(5)
DNARROW = CHR(24)
ENTER = CHR(13)
HOME = CHR(1)
END = CHR(6)
PGUP = CHR(18)
PGDN = CHR(3)

*---- INITIALIZE DATES
SEED = DATE()
B_DATE = SEED

*--- STARTING DATE LOOP ---*
DO WHILE .T.
SET COLOR TO R+/B
@ 3,17 SAY SPACE(18)
@3,17 SAY CMONTH(SEED)+" "+LTRIM(STR(DAY(SEED)))+" "+LTRIM(STR(YEAR(SEED)))
KEY = CHR(0)

*--- GET KEY
DO WHILE .NOT. KEY $ ENTER + DNARROW + UPARROW + HOME + END + PGUP + PGDN
KEY = UPPER(CHR(INKEY()))
ENDDO
DO CASE
CASE KEY = DNARROW
SEED = SEED + 1
CASE KEY = UPARROW
SEED = SEED - 1
CASE KEY = HOME
SEED = SEED - 30
CASE KEY = END
SEED = SEED + 30
CASE KEY = PGUP
SEED = SEED - 365
CASE KEY = PGDN
SEED = SEED + 365
CASE KEY = ENTER
EXIT
ENDCASE
ENDDO
START = SEED

*--- END DATE LOOP ---*
DO WHILE .T.
SET COLOR TO R+/B
@ 3,47 SAY SPACE(18)
@3,47 SAY CMONTH(SEED)+" "+LTRIM(STR(DAY(SEED)))+" "+LTRIM(STR(YEAR(SEED)))
KEY = CHR(0)

*--- GET KEY
DO WHILE .NOT. KEY $ ENTER + DNARROW + UPARROW + HOME + END + PGUP + PGDN
KEY = UPPER(CHR(INKEY()))
ENDDO
DO CASE
CASE KEY = DNARROW
SEED = SEED + 1
CASE KEY = UPARROW
SEED = SEED - 1
IF SEED < START
SET TALK ON
? CHR(7)
SET TALK OFF
SEED = SEED + 1
ENDIF
CASE KEY = HOME
SEED = SEED - 30
IF SEED < START
SET TALK ON
? CHR(7)
SET TALK OFF
SEED = SEED + 30
ENDIF
CASE KEY = END
SEED = SEED + 30
CASE KEY = PGUP
SEED = SEED - 365
IF SEED < START
SET TALK ON
? CHR(7)
SET TALK OFF
SEED = SEED + 365
ENDIF
CASE KEY = PGDN
SEED = SEED + 365
CASE KEY = ENTER
EXIT
ENDCASE
ENDDO
END = SEED
SET COLOR TO
RETURN