Dates.sbr Dates operations By Ami Bar-Yadin
SYNTAX: XCALL DATES,FUNC,RESULT,date1{,date2}{,days}
Functions:
1 Convert from any format to any format (date1 --> date2)
2 date2 = date1 + days
3 days = date1 - date2
4 date2 = date1[year, y-week, DOW]
5 date2 = date1[year, month, m-week, DOW]
6 date2 = date of last day of month in date1
$ODTIM 7 (interface) DATES,7,0,DATE,TIME,FLAGS,OUT BUFFER or FILE#
$IDTIM 8 (interface) DATES,8,RESULT,INPUT,FLAGS,OUT DATE,OUT TIME
Notes for functions 4 and 5:
Compute date2 using only indicated data from date1
date1 must be an X with at least 5 bytes (for func#4)
date1 must be an X with at least 6 bytes (for func#5)
Notes for function 6:
Compute a date (date2) which is the last day of the same month
that is in date1
Notes for function 7:
This function provides an interface to $ODTIM
(See AlphaBasic XCALL ODTIM for more details on flags)
Nots for function 8:
This function provides an interface to $IDTIM
(See AlphaBasic XCALL IDTIM for more details on flags)
DATE DATA FORMATS:
ASCII ADATE,S,8 ("01/05/83")
Seperated BDATE,X,{3..7}
MONTH,B,1 1..12 : January..December
DAY,B,1 1..31
YEAR,B,1
DOW,B,1 1..7 : Monday..Sunday
YWEEK,B,1 1..52 : Week of year
MWEEK,B,1 1..5 : Week of month
MDAYS,B,1 1..31 : Days in month
Internal IDATE,B,4 True Julian B,4
16 bit CDATE,B,2 Century Julian B,2
Julian JDATE,F Yearly Julian F
Note:
A floating point 0 will be converted to today's date on input.
for example XCALL DATES,1,RESULT,0,A$ Will return A$ with today's date.
RESULT (F) CODES:
0 ALL OK
1 FUNCTION NUMBER OUT OF RANGE (1..6)
2 ERROR IN CONVERSION OF INPUT DATE
3 INVALID FORMAT FOR DATE
4 IMPROPER NUMBER OF PARAMETERS
5 INVALID FORMAT FOR DAYS
