R[2]E: Date Functions

["Trey Johnson" <dickjohnson3@xxxxxxxxxxxxxx>]

Hello List,
	Now I have a new problem. Here's the code to create an ascii
file using EOD.

vars:ticker(""),ftmp(""),fname(""),PS(0),Txt("");

Txt = NumToStr(PriceScale,0);
PS = Strlen(Txt) - 1;

  ticker =leftstr(getsymbolname,2);
  ftmp = ticker + "_" + "CLC.ASC";
  fname = "C:\scicon\GDATA\" + ftmp;


FileAppend(fname, NumtoStr((Date+19000000),0)+ " "+ NumToStr(Open,PS) +"
"+ 
	NumToStr(High,PS) +" "+ NumToStr(Low,PS) +" "+
	NumToStr(Close,PS)+ " " + NumToStr(Volume,0) + " " +
NumtoStr(OpenInt,0)+NewLine);

Here's an example of the output:

19990104 1.2025 1.2041 1.1949 1.1977 2112 2091
19990106 1.1977 1.1984 1.1737 1.1799 4698 3816
19990108 1.1819 1.1930 1.1809 1.1906 3539 4191
19990108 1.1850 1.1850 1.1741 1.1786 3827 4468
19990112 1.1762 1.1768 1.1675 1.1680 6058 7627
19990112 1.1712 1.1757 1.1712 1.1743 3169 8241
19990112 1.1928 1.1982 1.1837 1.1845 5465 7212
19990114 1.1843 1.1913 1.1832 1.1899 1164 6902

The first date is correct. However, everything to the right is for
19990105, and then days repeat. Anyone have any suggestions? I would
greatly appreciate it.
Trey