http://tradersxchange.com/viewtopic.php?f=31&t=582
//EoD Exit Strategy (EoD_Exit)|
//©2005, JRG, v8.1c, 30 Aug 2005|
//
//NOTES:
//050427 v8.1a - fix seconds calculations & refine logic.
//050807 v8.1b - begin sending last entry time 30 minutes before.
//050830 v8.1c - handle regular futures session reentry after session close.
//
// ***** Setup *****

INPUTS: Exit_Count_B4_Close ( 17 ),
Use_Seconds ( False ),
EoD_LX ( true ),
EoD_SX ( true ),
EoW_Close_All ( False ),
Early_Close_All ( False ) ;
VARIABLES: Exit_Time ( 0 ),
Exit_Seconds ( 0 ),
Frac_Exit_Time ( 0 ),
EoD_Time ( 0 ),
Early_Close_Exit ( False ),
Exit_All ( False ),
Exit_Any ( False ),
GV_Name ( NumToStr( AbsValue( GetAppInfo( aiAppID ) ), 0 ) + "EoD_Exit_Time" ) ;
// ***** Housekeeping *****
if CurrentBar = 1 then
if Use_Seconds then
Exit_Seconds = AbsValue( Exit_Count_B4_Close )
else
Exit_Seconds = AbsValue( Exit_Count_B4_Close * 60 ) ;
// ***** Find Exit_Time Each Day *****
if Date Date[1] and // run once per day
BarStatus(1) = 2 then // run once on first bar of day
begin
if EarlyClose( Date ) then // adjust close time for early close
begin
EoD_Time = SessionEndTime( 0, 1 ) - 300 ; // early close is 3 hours
Early_Close_Exit = Early_Close_All ;
end
else begin
EoD_Time = SessionEndTime( 0, 1 ) ;
Early_Close_Exit = False ; // not early close
end ;
Frac_Exit_Time = ( ( TimeToMinutes( EoD_Time) * 60 ) - Exit_Seconds ) / 86400 ;
Exit_Time = CalcTime( EoD_Time, - IntPortion( ( Exit_Seconds + 59 ) / 60 ) ) ;
Exit_All = Early_Close_Exit or
( EoW_Close_All and
DayOfWeek( Date ) = 5 ) ; // determine exit all
Exit_Any = Exit_All or
EoD_LX or
EoD_SX ;
end ; // once a day
// ***** Exit at End of Day if *****
if Time >= Exit_Time and
Time < EoD_Time + 1 and // allow over night futures session entry
MarketPosition 0 and
Exit_Any then
begin
// *** RealTime Exit ***
if GetAppinfo( aiRealTimeCalc ) = 1 and
FracPortion( ComputerDateTime ) >= Frac_Exit_Time then
begin // exit choices
if EoD_LX or
Exit_All then
Sell( "RT_EoD_LX" ) currentshares shares next bar at MARKET ;
if EoD_SX or
Exit_All then
BuyToCover( "RT_EoD_SX" ) currentshares shares next bar at MARKET ;
end // realtime exit choices
else
// *** BackTesting Exit ***
if Time >= Exit_Time then
begin // exit choices
if EoD_LX or
Exit_All then
Sell( "BT_EoD_LX" ) currentshares shares this bar ;
if EoD_SX or
Exit_All then
BuyToCover( "BT_EoD_SX" ) currentshares shares this bar ;
end ; // backtesting exit
end ; // in position
// ***** Send Exit Time to Other Strategies *****
if Time >= CalcTime( Exit_Time, -30 ) and
( EoD_LX or
EoD_SX or
Exit_All ) then
Value1 = GVSetNamedInt( GV_Name, Exit_Time )
else
Value1 = GVSetNamedInt( GV_Name, 9999 ) ;
// *** Safety Valve ***
if Exit_All then // valid only if Exit_All triggered (for backtesting)
SetExitOnClose ;

works well.
but little bit complicated.

Would that work with exchange time ? or just computer time?