home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / TEXT / PDX_ALL.ZIP / TI373.ASC < prev    next >
Text File  |  1991-09-11  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  PARADOX                                NUMBER  :  373
  9.   VERSION  :  1.X, 2.X, 3.X
  10.        OS  :  DOS
  11.      DATE  :  September 11, 1991                       PAGE  :  1/1
  12.  
  13.     TITLE  :  CREATING A NON-ABBREVIATED MONTH TEXT FIELD
  14.  
  15.  
  16.  
  17.  
  18.   The following script scans the tbl table and extracts the month
  19.   and assigns the spelled out month to the Review Date field.
  20.  
  21.  
  22.   EDIT "tbl"
  23.     SCAN
  24.       d=[Date]            ;Date is an assumed date field name
  25.       m=MOY(d)            ;Returns months of the year as a string
  26.  
  27.       SWITCH
  28.         CASE m = "Jan": [Month1] = "January"
  29.         CASE m = "Feb": [Month1] = "February"
  30.         CASE m = "Mar": [Month1] = "March"
  31.         CASE m = "Apr": [Month1] = "April"
  32.         CASE m = "May": [Month1] = "May"
  33.         CASE m = "Jun": [Month1] = "June"
  34.         CASE m = "Jul": [Month1] = "July"
  35.         CASE m = "Aug": [Month1] = "August"
  36.         CASE m = "Sep": [Month1] = "September"
  37.         CASE m = "Oct": [Month1] = "October"
  38.         CASE m = "Nov": [Month1] = "November"
  39.         CASE m = "Dec": [Month1] = "December"
  40.      ENDSWITCH
  41.  
  42.     ENDSCAN
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.