Originally Posted by
EWP
sn. uufuk sizden alınan bilgilerle istediğimi yaptım, üzerinde biraz oynadım. sistemlerinde işlemsiz zaman tanımlaması (flat ) yapmak isteyenler ve gün sonu poz kapatmak isteyenler için belki faydalanan olur diyerek buraya da ekliyorum.
NewDay:=DAYOFMONTH()<>ref(DAYOFMONTH(),-1) ;
EndDay:=DAYOFMONTH()<ref(DAYOFMONTH(),1-0) ;
TimeNum:=HOUR()*100+MINUTE();
FirstBarTime:=ValueWhen(1,NewDay,TimeNum);
EndTime:=ValueWhen(1,EndDay,TimeNum);
ct:=valuewhen(1,NewDay,cum(1));
t:=valuewhen(1,ct+1=Cum(1),TimeNum)-valuewhen(1,ct=Cum(1),TimeNum);
SecondBarTime:=FirstBarTime+t;
EndTimeprev:=if(EndTime-t=1785,1745,if(EndTime-t=1780,1740,EndTime-t));
FirstBarTime;SecondBarTime;
EndTimeprev;EndTime