Files
harbour-core/tests/dates2.prg
vszakats 9687850865 2013-03-16 02:10 UTC+0100 Viktor Szakats (harbour syenar.net)
* (all files)
    * stripped svn header
    * minor cleanups
    ; use following command to find out the history of files:
       git log
       git log --follow
       git blame
       git annotate
2013-03-16 02:11:42 +01:00

39 lines
1.0 KiB
Plaintext

PROCEDURE Main()
LOCAL dDate := hb_SToD( "19990430" )
? Set( _SET_DATEFORMAT ), dDate
Set( _SET_DATEFORMAT, "yyy/mm/ddd" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "on" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "off" )
? Set( _SET_DATEFORMAT ), dDate
Set( _SET_DATEFORMAT, "yyy/m/d/yyy" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "on" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "off" )
? Set( _SET_DATEFORMAT ), dDate
Set( _SET_DATEFORMAT, "m/d/y/m/d" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "on" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "off" )
? Set( _SET_DATEFORMAT ), dDate
Set( _SET_DATEFORMAT, "mmmm/ddddd" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "on" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "off" )
? Set( _SET_DATEFORMAT ), dDate
Set( _SET_DATEFORMAT, "mmmmm/dd" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "on" )
? Set( _SET_DATEFORMAT ), dDate
__SetCentury( "off" )
? Set( _SET_DATEFORMAT ), dDate
RETURN