Allocating Trading Day Number

[johni 10]

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)=LastValue(Cum(1)),

DayOfMonth()=31);

 

{ Start of month }

nuMonth:=Month()<>Ref(Month(),-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 10]

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

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,DaysChange)

 

Returns (Integer)

A numeric value the represents the date in EasyLanguage format for the current bar.

 

]