Цикл по датам

[kuhtiov]

Подскажите как лучше реализовать. Пишу программу для регистратора рабочего времени. Функция формирования отчетов. Есть две даты, с какого по какое число формировать отчет. Как правильно сделать цикл между двумя датами (например с 01.01.2011 по 01.02.2011) чтобы мне в цикле возвращалось значение от 01.01.2011 до 01.02.2011?

[Хакер]

Код: Выделить всё

' Вход: date_start, date_end, date_step_value, date_step_unit

d = date_start
Do
    ' Тело цикла
    d = DateAdd(date_step_unit, date_step_value, d)
Loop Until d > date_end

[kuhtiov]

Спасибо, мысль понял. Но почему-то не происходит выход из цикла

Код: Выделить всё


date_step_unit = "d"
date_step_value = 1
date_start = "15.06.2011"
date_end = "19.06.2011"

d = date_start
Do
    ' Òåëî öèêëà
    d = DateAdd("d", date_step_value, d)
    MsgBox d & "\" & date_end
Loop Until d > date_end



При отлове видно, что даже если d > date_end, цикл продолжается

И еще заметил. Если в цикл вставить такой код, при достижении нужной даты возвращается True

Код: Выделить всё

MsgBox d & "\" & date_end & d > date_end

а если делать так, всегда будет фальш

Код: Выделить всё

MsgBox d > date_end

Прикольно получается

Код: Выделить всё

Do
    ' Òåëî öèêëà
    d = DateAdd("d", date_step_value, d)
    MsgBox d
    'MsgBox d & "\" & date_end & d > date_end
Loop Until d & "\" & date_end & d > date_end


Бред

[ger_kar]

Так происходит, потому, что образно выражаясь ты сравниваешь "Мягкое" с "Круглым". В твоем примере ты сравниваешь дату со строкой. Переменная d у тебя имеет тип дата, так как ф-ция DateAdd возвращает тип дата, а date_end имеет тип string.
Приведи к одному типу и сравнивай например так: date_end = CDate("19.06.2011")
И выход из цикла лучше оформить так: Loop While d < date_end

[Samovar]

Если прокручивать только дни, нельзя ли изпользовать напрямую:

Код: Выделить всё

d = d + date_step_value