{ PSS_I_VolDayFac (C)Copyright, 2015, B.Eichberger from Professional Software Solutions, pss@pobox.com This program remains the exclusive property of B. EICHBERGER and may not be sold, used, copied, displayed or modified without the written consent of B. EICHBERGER } DefineDLLFunc: "PSS_BT.DLL", FLOAT , "PSS_VolDayFac", INT,LPSTR,LONG,LONG,int,int,int,LPLONG,LPLONG,LPLONG,LPLONG,FLOAT,INT; Inputs: VolMode(1); Var: nType(104), txtReason(""), UseVol(0), bLastBar(0), float VolDayFac(0); UseVol = UpTicks + DownTicks; if LastBarOnChart then bLastBar = 1 else bLastBar = 0; VolDayFac = PSS_VolDayFac(VolMode,Symbol,Date,Time,BarType,BarInterval,PriceScale,&Open,&High,&Low,&Close,UseVol,bLastBar); if VolDayFac < 0 then begin txtReason = "License Error: " + numtostr(CustomerID,0) + " (" + numtostr(nType,0) + "," + numtostr(VolDayFac,0) + ")"; RaiseRunTimeError(txtReason); end; Plot1(VolDayFac,"VolDayFactor" ); Plot2(100,"100%"); Plot3(0,"0%");