|
would any of the deDateTime Plugin
help?
(I thought all the leap year issues have been
resolved there)
Joseph Biran
____________________________________________
From: amibroker@xxxxxxxxxxxxxxx
[mailto:amibroker@xxxxxxxxxxxxxxx] On
Behalf Of Herman
Sent: Sunday,
May 06, 2007 2:52 PM
To: AmiBroker
Subject: [amibroker] AFL Challenging: find yesterday's
system data
since there has been some talk about solving
riddles using AFL one of you gurus might be in the mood to look at
my problem:
In my AT system I need to know the datenum for
the previous trading day (Mon-Fri OK) using my system datetime as
reference,
i.e i should
get that datenum even if I have no data for that day.
TIA,herman.
I got this far:
// Leap year:
// 1. Every Year divisible by 4 is a
leap Year.
// 2. But every Year divisible by 100 is
NOT a leap Year
// 3. Unless the Year is also divisible
by 400, then it is still a leap Year.
SysDateNum
= Now(3);
SysYear
= int(SysDateNum/10000)+1900;
LeapYear = (
SysYear%4 == 0 AND SysYear%100 != 0 ) OR SysYear%400 == 0;
SysMonth
= int(SysDateNum/100)%100;
if( LeapYear )
DaysInMonth = "31,29,31,30,31,30,31,31,30,31,30,31";
else DaysInMonth
= "31,28,31,30,31,30,31,31,30,31,30,31";
Title = "\n"+WriteIf(LeapYear,"LeapYear","NOT a LeapYear")+
", "+ NumToStr(SysYear,1.0,False)+"\n"+
"#Days in Month: "+DaysInMonth+"\n"+
" Month Number: "+NumToStr(SysMonth,1.0,False);
|