DIM
hDateArray
AS
Date[]
DIM
aDate
AS
Date
FOR EACH
aDate
IN
hDateArray
...
NEXT
Перечисляет каждый элемент, сохраненный в массиве.