96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
13 lines
265 B
Plaintext
13 lines
265 B
Plaintext
#require "hbnf"
|
|
|
|
PROCEDURE Main( cDate )
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
cDate := iif( cDate == NIL, DToS( Date() ), cDate )
|
|
? "Setting date to: " + cDate + "... "
|
|
ft_SetDate( hb_SToD( cDate ) )
|
|
? "Today is now: " + DToC( Date() )
|
|
|
|
RETURN
|