would any of the deDateTime Plugin help? (I thought all the leap year issues have been resolved there)
Joseph Biran ____________________________________________ _____ From: [email protected] [mailto:[EMAIL PROTECTED] 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);
