70 lines
2.6 KiB
Plaintext
70 lines
2.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
testing date settings
|
|
Options:
|
|
"AMERICAN"
|
|
"ANSI"
|
|
"BRITISH"
|
|
"FRENCH"
|
|
"GERMAN"
|
|
"ITALIAN"
|
|
"SPANISH"
|
|
"MM/DD/YY"
|
|
"YY.MM.DD"
|
|
"DD/MM/YY"
|
|
"DD.MM.YY"
|
|
"DD-MM-YY"
|
|
"MM/DD/YYYY"
|
|
"YYYY.MM.DD"
|
|
ANSI
|
|
"DD.MM.YYYY"
|
|
ANSI
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL e
|
|
|
|
SET CENTURY ON
|
|
? Date()
|
|
|
|
SET DATE AMERICAN
|
|
? Date()
|
|
|
|
SET DATE BRITISH
|
|
? Date()
|
|
|
|
? "Before :", sx_SetDateFormat( "AMERICAN" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "ANSI" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "BRITISH" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "FRENCH" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "GERMAN" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "ITALIAN" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "SPANISH" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "MM/DD/YY" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "YY.MM.DD" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "DD/MM/YY" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "DD.MM.YY" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "DD-MM-YY" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "MM/DD/YYYY" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "YYYY.MM.DD" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( ANSI ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( "DD.MM.YYYY" ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
? "Before :", sx_SetDateFormat( ANSI ), ", Now :", sx_SetDateFormat(), ", Date() =", Date()
|
|
BEGIN SEQUENCE WITH {| e | Break( e ) }
|
|
? sx_SetDateFormat( "YYYY-MM-DD" ), Date()
|
|
RECOVER USING e
|
|
? "This is Invalid =>", e:SubSystem, PadL( e:SubCode, 4 ), e:Operation, e:Description, ValToPrg( e:Args )
|
|
END
|
|
|
|
BEGIN SEQUENCE WITH {| e | Break( e ) }
|
|
? sx_SetDateFormat( "AFRIKAANS" ), Date()
|
|
RECOVER USING e
|
|
? "This is Invalid =>", e:SubSystem, PadL( e:SubCode, 4 ), e:Operation, e:Description, ValToPrg( e:Args )
|
|
END
|