96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
31 lines
456 B
Plaintext
31 lines
456 B
Plaintext
#require "hbnf"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL dDate
|
|
LOCAL GetList := {}
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
DO WHILE .T.
|
|
|
|
@ 2, 10 SAY "Date to Test"
|
|
|
|
dDate := hb_SToD()
|
|
@ 2, 24 GET dDate
|
|
READ
|
|
|
|
IF Empty( dDate )
|
|
EXIT
|
|
ENDIF
|
|
|
|
@ 4, 10 SAY "Is Day Number " + Str( ft_DoY( dDate ), 10 )
|
|
@ 6, 10 SAY "Is in Week Number " + Str( ft_WoY( dDate ), 10 )
|
|
@ 7, 0
|
|
|
|
WAIT
|
|
|
|
ENDDO
|
|
|
|
RETURN
|