//
// $Id: dates2.prg 1519 1999-10-04 18:46:41Z vszel $
//

#include "set.ch"
function main()
   local newline := HB_OSNewLine()
   local dDate := CTOD ("04/30/99")

   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   set (_SET_DATEFORMAT, "yyy/mm/ddd")
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "on" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "off" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   set (_SET_DATEFORMAT, "yyy/m/d/yyy")
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "on" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "off" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   set (_SET_DATEFORMAT, "m/d/y/m/d")
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "on" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "off" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   set (_SET_DATEFORMAT, "mmmm/ddddd")
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "on" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "off" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   set (_SET_DATEFORMAT, "mmmmm/dd")
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "on" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
   __SETCENTURY ( "off" )
   outstd (SET (_SET_DATEFORMAT), dDate, newline)
return nil
