[amibroker] Re: How To Get Two Digit Year In Exploration

["Lester Vanhoff" <ebsn247lsm@xxxxxxxxxxxxx>]

> Graham> If you are wanting to export the data so you can use it in another package then use the export AFL rather than explorations.

That's how I started but I couldn't figure out "c" code to get two digit year so I decided to try explorations first. Here is the looping code that generates the required data file (C:\Test\Ms_eod.csv) with four digit year. The question is how to change the following line to get yymmdd instead of yyyymmdd:

ds = StrFormat( "%4.f%02.f%02.f,", y[i], m[i], d[i] );

I tried these two options but both still give four digit year:

ds = StrFormat( "%02.f%02.f%02.f,", y[i], m[i], d[i] );
ds = StrFormat( "%2.f%02.f%02.f,", y[i], m[i], d[i] );

Here is the full code:

/****START****/

folder = "C:\\Test";
fmkdir( folder ); // this automatically creates the directory

fh = fopen( folder + "\\" + "Ms_eod.csv", "a");

if (fh)
{
  t = Name();
  p = "D";
  y = Year();
  m = Month();
  d = Day();
for( i = 0; i < BarCount; i++ ) // loop
  {
  fputs( t + "," , fh );
  fputs( p + "," , fh );
  ds = StrFormat( "%4.f%02.f%02.f,", y[i], m[i], d[i] ); // date string
  fputs( ds, fh );
  qs = StrFormat("%.4f, %.4f, %.4f, %.4f, %.0f, %.0f\n", O[i], H[i], L[i], C[i], V[i], OI[i] ); // quote string
  fputs( qs, fh );
  }
fclose( fh );
}
Buy = 0; // link to "scan" button

/****END****/


> On 12/06/06, Lester Vanhoff <ebsn247lsm@xxx> wrote:
> > Thanks, Graham, but your code has the same issue of exploration returning the date of the last available quote in all rows (see below). If you can't figure this out then I'm starting to lose my hope.
> >
> > I just want to look at my Metastock ver.4.51rt (for DOS) and need ASCii with two digit year. Updating to a bit newer version is obviously not an option.
> >
> > Lester
> >
> > /****START****/
> >
> > Filter = 1;
> >
> > yy = Year();
> > mm = Month();
> > dd = Day();
> >
> > ThisDate = StrFormat( "%4.f%02.f%02.f",yy,mm,dd );
> >
> > SetOption("NoDefaultColumns", True);
> > AddTextColumn(Name(), "Ticker");
> > AddColumn(DateTime(), "Real Date", formatDateTime);
> > AddTextColumn(ThisDate, "yyyymmdd");
> >
> > /****END****/
> >
> > --- In amibroker@xxxxxxxxxxxxxxx, Graham <kavemanperth@> wrote:
> > >
> > > Try this as one method
> > > yy = Year();
> > > mm = Month();
> > > dd = Day();
> > > ThisDate = StrFormat( "%4.f%02.f%02.f",yy,mm,dd );
> > >
> > > --
> > > Cheers
> > > Graham
> > >
> > > On 11/06/06, Lester Vanhoff <ebsn247lsm@> wrote:
> > > >
> > > > 1) Thanks, Wavemechanic, but when you use Year(), Month() and Day() and then run exploration with the date range set to, let's say, last 15 quotations all the rows will have the same date (the date of the last quote). In the formula below I included the column "Real Date"; compare it with columns "yyyy", "mm", "dd".
> > > >
> > > > 2) Another question is: how to get month and day with leading zeros?
> > > >
> > > > Lester
> > > >
> > > > /****START****/
> > > >
> > > > Filter = 1;
> > > >
> > > > yy = NumToStr(Year(),1.0,0);
> > > > mm = NumToStr(Month(),1.0);
> > > > dd = NumToStr(Day(),1.0);
> > > >
> > > > SetOption("NoDefaultColumns", True);
> > > > AddTextColumn(Name(), "Ticker");
> > > > AddColumn( DateTime(), "Real Date", formatDateTime );
> > > > AddTextColumn( yy, "yyyy");
> > > > AddTextColumn( mm, "mm");
> > > > AddTextColumn( dd, "dd");
> > > > AddTextColumn(yy+mm+dd, "yymmdd");
> > > >
> > > > AddColumn( Close, "Close", 1.4 );
> > > > AddColumn( Volume, "Volume", 1.0 );
> > > >
> > > > /****END****/