Amibroker AFL code for DateNum DateStr:
Script:
_SECTION_BEGIN(“StrFormat_printf”);
// Transforme DateNum ex:1040928 en String ddmmyyyy ex:28/09/2004
result=””;
function sDate ( nDate ) //
{
string=StrFormat(“%0.9g”,nDate);
//extract string part
aa=StrLeft(string,3);
mm=StrMid(string,3,2);
dd=StrRight(string,2);
//transform year en num
aa1=StrToNum(aa)+1900; // ONLY CORRECT AFTER 2000
//return string
result= dd + “/” + mm + “/” + NumToStr(aa1,1,False);
return result;
}
curList=””; // initialize the string List
Event= Cross(MFI(14) ,50 );
zDate=DateNum();
//SetBarsRequired(10000,10000);
for(i=0;i<BarCount;i++)
{
if(Event[i])
{
//Print to Interpretation the Date when events occurs
printf(“Cross:” + sDate(zDate[i])+”\n” );
// Store a curList for others use
curList=curList+sDate(zDate[i])+”\n”;
// Store the curList in a static text
StaticVarSetText(“MyList”,curList);
}
}
//curList=StaticVarGetText(“MyList”); // can be used in an other EDITOR