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 >
Wrap
Text File
|
1991-09-11
|
1KB
|
67 lines
PRODUCT : PARADOX NUMBER : 373
VERSION : 1.X, 2.X, 3.X
OS : DOS
DATE : September 11, 1991 PAGE : 1/1
TITLE : CREATING A NON-ABBREVIATED MONTH TEXT FIELD
The following script scans the tbl table and extracts the month
and assigns the spelled out month to the Review Date field.
EDIT "tbl"
SCAN
d=[Date] ;Date is an assumed date field name
m=MOY(d) ;Returns months of the year as a string
SWITCH
CASE m = "Jan": [Month1] = "January"
CASE m = "Feb": [Month1] = "February"
CASE m = "Mar": [Month1] = "March"
CASE m = "Apr": [Month1] = "April"
CASE m = "May": [Month1] = "May"
CASE m = "Jun": [Month1] = "June"
CASE m = "Jul": [Month1] = "July"
CASE m = "Aug": [Month1] = "August"
CASE m = "Sep": [Month1] = "September"
CASE m = "Oct": [Month1] = "October"
CASE m = "Nov": [Month1] = "November"
CASE m = "Dec": [Month1] = "December"
ENDSWITCH
ENDSCAN