+1 888 340 6572

WEEKLOWAV4DAILY

Article/Author: Omega Research Inc., 1995

Download: FUNCTION-WEEKLOWAV4DAILY.ELA

File Includes: Function - WEEKLOWAV4DAILY

EasyLanguage Code:
INPUT:LENGTH(NUMERIC);


ARRAY:HARRAY[200](0),LARRAY[200](0);



IF DAYOFWEEK(DATE) < DAYOFWEEK(DATE[1]) THEN BEGIN
VALUE5 = 0;
LARRAY[LENGTH + 1] = VALUE2;

FOR VALUE0 = 1 TO LENGTH BEGIN

LARRAY[VALUE0] = LARRAY[VALUE0 + 1];
VALUE5 = VALUE5 + LARRAY[VALUE0];

END;

VALUE2 = L;
VALUE3 = 0;
VALUE7 = ROUND(VALUE5 / LENGTH,2);

WEEKLOWAV4DAILY = VALUE7;

END;

IF L < VALUE2 THEN VALUE2 = L;