|
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);
|