_SECTION_BEGIN("Expiry Day");
function IsExpiryDay(dow)
{// -- by mastermind007 - origin IsSelectedDateLastThursday()
DaysinMonth = IIf((Month()==9 OR Month()==4 OR Month()==6 OR Month()==11), 30, IIf(Month()==2, 28 + (Year()%4 == 0 AND Year()%100!=0), 31));
return (DaysinMonth - Day() < 7) AND (DayOfWeek() == dow);
}
LastDay = ParamList("Last Day of the Month", "Mon|Tue|Wed|Thu|Fri", 3);
ColorExpiry = ParamColor("Expiry Color", colorYellow);
switch (LastDay)
{
case "Mon": dow=1; break;
case "Tue": dow=2; break;
case "Wed": dow=3; break;
case "Thu": dow=4; break;
case "Fri": dow=5; break;
}
Color = IIf(IsExpiryDay(dow), ColorExpiry,
IIf(C>O,colorGreen,
IIf(C<O, colorRed, colorWhite) ));
Plot( C, "Close", Color , styleNoTitle | styleThick | GetPriceStyle() );
_SECTION_END();