Files
harbour-core/tests/dates2.prg
Przemysław Czerpak 96ca3fe470 2014-01-21 20:41 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* Makefile
  * config/*
  * contrib/*
  * doc/*
  * extras/*
  * include/*
  * lib/*
  * package/*
  * src/*
  * tests/*
  * utils/*
    * removed empty lines left after removed '$' + 'Id' + '$' identifiers
2014-01-21 20:41:05 +01:00

38 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