4d4bb8e11c
* tests/ainstest.prg
* tests/array16.prg
* tests/arrays.prg
* tests/atest.prg
* tests/clasinit.prg
* tests/classch.prg
* tests/classes.prg
* tests/dates.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/debugtst.prg
* tests/dynobj.prg
* tests/files.prg
* tests/gfx.prg
* tests/inline.prg
* tests/keywords.prg
* tests/objects.prg
* tests/onidle.prg
* tests/readhrb.prg
* tests/rtfclass.prg
* tests/speed.prg
* tests/switch.prg
* tests/test_all.prg
* tests/testbrw.prg
* tests/testcgi.prg
* tests/testcls.prg
* tests/testget.prg
* tests/testhtml.prg
* tests/testidle.prg
* tests/testinit.prg
* tests/testntx.prg
* tests/testpers.prg
* tests/testrdd2.prg
* tests/teststr.prg
* tests/tstblock.prg
* tests/tstmacro.prg
* tests/videotst.prg
* tests/vidtest.prg
* tests/wcecon.prg
* Cleanups. SVN header, '=' operator usage.
37 lines
675 B
Plaintext
37 lines
675 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE MAIN()
|
|
LOCAL dDate
|
|
LOCAL A
|
|
|
|
SET DATE FORMAT TO "YYYY.MM.DD"
|
|
SET CENTURY ON
|
|
|
|
dDate := 0d20051112
|
|
? "Should be '2005.11.12' :", dDate
|
|
|
|
dDate := 0d18341112
|
|
? "Should be '1834.11.12' :", dDate
|
|
|
|
dDate := 0d20040229 + 1
|
|
? "Should be '2004.03.01' :", dDate
|
|
|
|
dDate := 0d20040229 - 1
|
|
? "Should be '2004.02.28' :", dDate
|
|
|
|
? "Should be '4' :", 0d20040229 - 0d20040225
|
|
? "Should be '0' :", 0d20040229 - 0d20040229
|
|
|
|
dDate := 0d20000229
|
|
? "Should be '2000.02.29' :", dDate
|
|
|
|
a := '0d20040229+1'
|
|
? "Should be '2004.03.01' :", &a
|
|
|
|
a := "DATE() - 0d20051112"
|
|
? "Number of days from 2005.11.12:", &a
|
|
|
|
RETURN
|