+1 888 340 6572

WEEKHIGHAV4DAILY

Article/Author: Omega Research Inc., 1995

Download: FUNCTION-WEEKHIGHAV4DAILY.ELA

File Includes: Function - WEEKHIGHAV4DAILY

EasyLanguage Code:
INPUT:LENGTH(NUMERIC);


ARRAY:HARRAY[200](0);

IF DAYOFWEEK(DATE) < DAYOFWEEK(DATE[1]) THEN BEGIN
VALUE4 = 0;
HARRAY[LENGTH + 1] = VALUE1;

FOR VALUE0 = 1 TO LENGTH BEGIN

HARRAY[VALUE0] = HARRAY[VALUE0 + 1];
VALUE4 = VALUE4 + HARRAY[VALUE0];

END;

VALUE1 = H;
VALUE3 = 0;
VALUE6 = ROUND(VALUE4 / LENGTH,2);
WEEKHIGHAV4DAILY = VALUE6;

END;

IF H > VALUE1 THEN VALUE1 = H;