_WeekEnd

//+------------------------------------------------------------------+
//|                                                     _WeekEnd.mq4 |
//|                                       Copyright © 2007, BabyBear |
//|                               http://bearden.narod.ru/index.html |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, BabyBear"
#property link      "http://bearden.narod.ru/index.html"
//----
#include <DateTime.mqh>
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   datetime FridayEnd = ONE_FRIDAY_END;
   Print(" OneFridayEnd=", TimeToStr(FridayEnd));
//----   
   datetime tl = TimeLocal();
   datetime tc = TimeCurrent();
//----   
   datetime t = tc - 3*60*60;
   datetime t2 = AddTradingSeconds(t, 4*60*60);
//----   
   Print("Interesting on weekends t1=",  TimeToStr(t), 
         "  t1 + (4 hour) =  ", TimeToStr(t2));
//----   
   Print(" TimeLocal=", TimeToStr(tl));
//----   
   datetime lms = LastMondayStart(tl);
   Print(" LastMondayStart=", TimeToStr(lms));
//----   
   datetime nfe = NextFridayEnd( tl);
   Print(" NextFridayEnd=", TimeToStr(nfe));
//----   
   Print(" Funny : 4 hour but 5 candels == ", HoursCandleCount(t, t2));
//----  
   return(0);
  }
//+------------------------------------------------------------------+