Files
harbour-core/tests/cdow.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

15 lines
185 B
Plaintext

PROCEDURE Main()
? CMonth( Date() )
? CMonth( Date() + 31 )
? CMonth( Date() + 60 )
?
? CDoW( Date() )
? CDoW( Date() + 6 )
? CDoW( Date() + 7 )
?
RETURN