32 lines
643 B
Plaintext
32 lines
643 B
Plaintext
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
|
|
|