Allocating Trading Day Number

[johni]

Hi,

Anyone can help to translate the following Metastock code into TS2000i compatiable code?

The indicator allocate a number to each trading day and reset to zero following a new month.

========================= ========================= ====
{ User input }
EOM:=Input("Final month's end: [1]True, [2]Current (dynamic)",1,2,1);

{ Choice of Static/Dynamic last EOM signal }
EOM:=If(EOM=2,Cum(1)=Last Value(Cum(1)),
DayOfMonth()=31);

{ Start of month }
nuMonth:=Month()<>Ref(Mon th(),-1) OR Cum(1)=2;

{ End of month }
monthEnd:=PeakBars(1,
-(nuMonth OR Cum(IsDefined(nuMonth))=1 ),1)=0
OR EOM;

{ Plot signals in own window }
nuMonth;-monthEnd

BarsSince(nuMonth)
========================= ========================= =====

Regards.

[thrunner]

if Month( date ) <> Month( CalcDate( date, iff( DayOfWeek( d ) <> 5, 1, 3 ) ) ) then print( date ) ;

	Quote:
	The CalcDate function adds and subtracts days from a reference date. The reference date is a numeric value in the EasyLanguage date format: YYYMMDD (Year Month Day). For example, 1030101 = Jan. 1st, 2003 or 9906015 = June 15, 1999 Since EasyLanguage and Chart Analysis use this special date format, it is sometimes difficult to add or subtract some number of days from the EasyLanguage date. For example, if you wanted to subtract 15 days from Jan 1, 2003, you might try 1030101 – 15, which would result in an invalid date, CalcDate solves this by returning the correct and valid date of 1021216 Syntax CalcDate(RefDate,DaysChan ge) Returns (Integer) A numeric value the represents the date in EasyLanguage format for the current bar. ]