XCALL DATES.SBR		(C)1989 By MEDA COMP, INC.  (210)490-9008


	MAP1 DATE1,B,4		!Date var 1
	MAP1 DATE2,B,4		!Date var 2
	MAP1 DAYS,F		!# Var
	MAP1 PARAM,B,2		!Result Codes, usually ignored
				!See table of codes at end of doc

SPECIAL NOTES:  PREFERS "B,4" TYPE VARIABLES AND WILL RETURN THE
	DATE IN "YYYYMMDD" FORMAT, THUS AVOIDING THE DATE BOMB.

	WILL HANDLE FLOATING POINT VARS AND STRING VARS AS WELL, BUT
	ASSUMES THE "YYYYMMDD" FORMAT IF NOT A JULIAN NUMERIC DATE.

	THERE ARE SOME OTHER FUNCTIONS BUILT IN FOR FORMATTED DATES,
	DAY OF MONTH, WEEK, ETC.   SEE SOURCE CODE FOR MORE INFO.

 FUNCTIONS:	

	1	XCALL DATES, 1, PARAM, DATE1, DATE2
		will convert an ASCII date to standard date


!----------------------------------------------------------------------
	Special function
	A floating point 0 will be converted to today's date on input.
	For example:
		XCALL DATES,1,PARAM, 0, DATE2
	Will return DATE2 with today's date (i.e. 19930729 )
!----------------------------------------------------------------------


	2	XCALL DATES, 2, PARAM, DATE1, DATE2, DAYS
		Will compute DATE2 = DATE1 + DAYS


	3	XCALL DATES, 3, PARAM, DATE1, DATE2, DAYS
		Will compute DAYS = DATE2 - DATE1








 PARAM (F) CODES:
	0	ALL OK
	1	FUNCTION NUMBER OUT OF RANGE (1..8)
	2	ERROR IN CONVERSION OF INPUT DATE
	3	INVALID FORMAT FOR DATE
	4	IMPROPER NUMBER/TYPE OF PARAMETERS
	5	INVALID FORMAT FOR DAYS
	6	ERROR LOCATING FILE CHANNEL
	7	VARABLE NOT A BINARY4



TO COMPIL....use M68 and then LNKLIT to produce the ".SBR" module
	.....requires some libraries, including "DATES.UNV" supplied

	M68 DATES
	LNKLIT DATES


.