96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
11 lines
224 B
Plaintext
11 lines
224 B
Plaintext
#require "hbnf"
|
|
|
|
PROCEDURE Main( cDate, cDays )
|
|
|
|
LOCAL nDays := ft_AddWkDy( hb_SToD( cDate ), Val( cDays ) )
|
|
|
|
? "Num days to add: " + Str( nDays )
|
|
? "New date: " + DToC( hb_SToD( cDate ) + nDays )
|
|
|
|
RETURN
|