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
80 lines
2.3 KiB
Plaintext
80 lines
2.3 KiB
Plaintext
// Testing Harbour dates management.
|
|
|
|
#include "set.ch"
|
|
|
|
function Main()
|
|
local cNewLine := CHR( 10 )
|
|
|
|
local dDate, dDate2, cMask, cDate
|
|
|
|
OUTSTD (cNewLine, "Testing Harbour dates management", cNewLine)
|
|
|
|
OUTSTD (cNewLine, HB_SETCENTURY ())
|
|
HB_SETCENTURY ("ON")
|
|
OUTSTD (HB_SETCENTURY ())
|
|
HB_SETCENTURY ("OFF")
|
|
OUTSTD (HB_SETCENTURY ())
|
|
HB_SETCENTURY ("GIBBERISH")
|
|
OUTSTD (HB_SETCENTURY ())
|
|
HB_SETCENTURY (.T.)
|
|
OUTSTD (HB_SETCENTURY ())
|
|
HB_SETCENTURY (5)
|
|
OUTSTD (HB_SETCENTURY ())
|
|
OUTSTD (cNewLine, "")
|
|
|
|
OUTSTD (cNewLine, "dDate = CToD( '02/04/1999' ) => ", dDate := CToD( "02/04/1999" ))
|
|
|
|
OUTSTD (cNewLine, "ValType( dDate ) = ", ValType( dDate ))
|
|
|
|
OUTSTD (cNewLine, "Day( dDate ) = ", Day( dDate ))
|
|
OUTSTD (cNewLine, "Month( dDate ) = ", Month( dDate ))
|
|
OUTSTD (cNewLine, "Year( dDate ) = ", Year( dDate ), cNewLine)
|
|
|
|
OUTSTD (cNewLine, "dDate + 5 = ", dDate2 := dDate + 5)
|
|
OUTSTD (cNewLine, "dDate - 5 = ", dDate - 5, cNewLine )
|
|
|
|
OUTSTD (cNewLine, "dDate2 - dDate = ", dDate2 - dDate)
|
|
|
|
OUTSTD (cNewLine, "")
|
|
OUTSTD (cNewLine, dDate, DTOS (dDate))
|
|
|
|
OUTSTD (cNewLine, "19990429", STOD ("19990429"))
|
|
|
|
OUTSTD (cNewLine, "")
|
|
SET (_SET_EPOCH, 1950)
|
|
cMask := "dd/mm/yyyy"
|
|
cDate := "02/04/49"
|
|
SET (_SET_DATEFORMAT, cMask)
|
|
dDate := CTOD (cDate)
|
|
OUTSTD (cNewLine, cDate, cMask, dDate, DTOS (dDate), DTOC (dDate))
|
|
|
|
OUTSTD (cNewLine, "")
|
|
cMask := "mm/dd/yyyy"
|
|
SET (_SET_DATEFORMAT, cMask)
|
|
dDate := CTOD (cDate)
|
|
OUTSTD (cNewLine, cDate, cMask, dDate, DTOS (dDate), DTOC (dDate))
|
|
|
|
OUTSTD (cNewLine, "")
|
|
cMask := "yyyy/mm/dd"
|
|
SET (_SET_DATEFORMAT, cMask)
|
|
dDate := CTOD (cDate)
|
|
OUTSTD (cNewLine, cDate, cMask, dDate, DTOS (dDate), DTOC (dDate))
|
|
OUTSTD (cNewLine, "")
|
|
OUTSTD (cNewLine, "49/02/04", cMask, CTOD ("49/02/04"))
|
|
|
|
OUTSTD (cNewLine, "")
|
|
cMask := "yyyy/dd/mm"
|
|
SET (_SET_DATEFORMAT, cMask)
|
|
dDate := CTOD (cDate)
|
|
OUTSTD (cNewLine, cDate, cMask, dDate, DTOS (dDate), DTOC (dDate))
|
|
OUTSTD (cNewLine, "")
|
|
OUTSTD (cNewLine, "49/02/04", cMask, CTOD ("49/02/04"))
|
|
|
|
OUTSTD (cNewLine, "")
|
|
cMask := "ddd/mmm/yy"
|
|
SET (_SET_DATEFORMAT, cMask)
|
|
dDate := CTOD (cDate)
|
|
OUTSTD (cNewLine, cDate, cMask, dDate, DTOS (dDate), DTOC (dDate))
|
|
|
|
return nil
|