37 lines
1.3 KiB
Plaintext
37 lines
1.3 KiB
Plaintext
#include "set.ch"
|
|
function main()
|
|
local newline := CHR(10)
|
|
local dDate := CTOD ("04/30/99")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "yyy/mm/ddd")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "yyy/m/d/yyy")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "m/d/y/m/d")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "mmmm/ddddd")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "mmmmm/dd")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
return nil
|