home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / GETDATE.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  39 lines
  1.         **********   GETDATE COMMAND FILE   **********
  2. * Confirms that the date is entered as YYMMDD by checking to see that
  3. * the entries for each item are in the correct range.  The year is
  4. * checked against a constant stored in the B:Constant.MEM file.
  5. **********************************************************************
  6.  
  7. STORE "T" TO NoDate
  8. DO WHILE !(NoDate) <> 'F'
  9.    ERASE
  10.    STORE 'YYMMDD' TO Date
  11.    @ 5,10 SAY "Enter TODAY'S date" GET Date
  12.    ? CHR(7)
  13.    READ
  14.  
  15.    IF VAL($(Date,1,2)) <> ThisYear;
  16.          .OR. VAL($(Date,3,2)) < 1 .OR. VAL($(Date,3,2)) > 12;
  17.          .OR. VAL($(Date,5,2)) < 1 .OR. VAL($(Date,
  18. COORD: 
  19. CORRECT AND RETRY (Y/N)? 
  20. COORD: 
  21. CORRECT AND RETRY (Y/N)? 
  22. COORD: 
  23. CORRECT AND RETRY (Y/N)? 
  24. COORD: 
  25. CORRECT AND RETRY (Y/N)? 
  26. COORD: 
  27. CORRECT AND RETRY (Y/N)? 
  28. COORD: 
  29. CORRECT AND RETRY (Y/N)? 
  30. COORD: 
  31. CORRECT AND RETRY (Y/N)? 
  32. COORD: 
  33. CORRECT AND RETRY (Y/N)? 
  34. COORD: 
  35. CORRECT AND RETRY (Y/N)? 
  36. COORD: 
  37. CORRECT AND RETRY (Y/N)? 
  38. COORD: 
  39. CORRECT AND RETRY (Y/N)?