>Hi all,
>
>I want to create an array with a list of week ending dates (Friday).
>Anyone know the easiest way of doing this?
>
>Thanks in advance,
>
>Ger.

LOCAL ARRAY arrFridays[1]
lnFridays = Days2Array(DATE(),DATE(2003,1,1),6,@arrFridays)
? lnFridays
DISPLAY MEMORY LIKE arrFridays

Function Days2Array
  Lparameters tdStart, tdStop, tnDow, taArray
  Local lnWeeks,ix, lnBase
  lnWeeks = Int((tdStop-(tdStart-Dow(tdStart,tnDow) + 1))/7)
  If tdStart = (tdStart-Dow(tdStart,tnDow) + 1)
    lnWeeks =lnWeeks + 1
    lnBase = -1
  Else
    lnBase = 0
  Endif
  If lnWeeks > 0
    Dimension taArray[lnWeeks]
    For ix = 1 To lnWeeks
      taArray[ix] = tdStart - Dow(tdStart,tnDow) + 1 + 7 * (ix + lnBase)
    Endfor
  Endif
  Return lnWeeks

Cetin