Files
harbour-core/harbour/tests/working/cdow.prg

17 lines
328 B
Plaintext

//
// $Id$
//
function main()
local cNewLine := OS_NewLine()
OutStd( cMonth( date() ) + cNewLine )
OutStd( cMonth( date() + 31 ) + cNewLine )
OutStd( cMonth( date() + 60 ) + cNewLine )
OutStd( cDow( date() ) + cNewLine )
OutStd( cDow( date() + 6 ) + cNewLine )
OutStd( cDow( date() + 7 ) + cNewLine )
return nil