c2c6620948
Changed all internal _SET_xxx to HB_SET_xxx Changed HB_SETCENTURY to modify the HB_SET_DATEFORMAT Changed the name of the set initialization function to InitializeSets Rewrote hb_dtoc to use hb_set_century and to be Clipper compliant Added dates2.prg to test century compliance with Clipper
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)
|
|
hb_setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "yyy/m/d/yyy")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "m/d/y/m/d")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "mmmm/ddddd")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
set (_SET_DATEFORMAT, "mmmmm/dd")
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "on" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
hb_setcentury ( "off" )
|
|
outstd (SET (_SET_DATEFORMAT), dDate, newline)
|
|
return nil
|