f4d02db8f1
* tests/ac_test.prg
* tests/ac_test2.prg
* tests/begin.prg
* tests/box.prg
* tests/byref.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/ifinline.prg
* tests/memvar.prg
* tests/menutest.prg
* tests/readhrb.prg
* tests/speed.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/switch.prg
* tests/testbrw.prg
* tests/testcdx.prg
* tests/testdecl.prg
* tests/testhrb.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/tstalias.prg
* tests/tstmacro.prg
* tests/varparam.prg
* more cleanups. (assignment operator and string quote usage)
38 lines
679 B
Plaintext
38 lines
679 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
|