Формирование отчета за месяц

[WhiteSadKat]

Добрый день, уважаемые знатоки!

Возникла передо мной нетипичная задача - переделать код формирования отчета.

Условия:

Каждое утро происходит формирование отчета о потреблении электроэнергии в период с 00:00 01 числа текущего месяца по 00:00 сегодняшнего дня. 30 апреля произойдет формирование отчета в период 00:00 01.04.2015г по 00:00 30.04.2015. А 1 мая отчет не сформируется, т.к. "dtStart = dtEnd then Exit; end;". А есть желание, чтобы 1 мая отчет сформировался за 00:00 01.04.2015 - 00:00 01.05.2015г.

Даю вводные:

var dtStart, dtEnd, dtTemp, dtStamp: DateTime;
var dtDay, dtMonth, dtYear:integer;

 begin
  iParam := GetParameter(2);             -  параметр по данным, которые характеризуют потребление электроэнергии (устанавливаются программно) 
  dtEnd := GetParameter(11);            -   дата назначаемая программно (текущая дата)
  DecodeDate (dtEnd, dtYear, dtMonth, dtDay);
  dtStart := EnCodeDate(dtYear, dtMonth, 1)+0;
  if dtStart = dtEnd then Exit;

Мое (ошибочное) видение решения проблемы:

 DecodeDate (dtEnd, dtYear, dtMonth, dtDay);
  if dtDay = 1 then
  inDay (-1)
  dtStart := EnCodeDate(dtYear, dtMonth, 1)+0;
  if dtStart = dtEnd then Exit;

Подскажите, подправьте порядок слов, букв, цифр.

Заранее, спасибо!

[WhiteSadKat]

Разве никто не может подсказать?

[Stilet]

Разве никто не может подсказать?

Скорее никто не может понять )
Я вот не смог понять что за отчет, и чего ты хочешь.

[Utkin]

Нельзя жестко забить константы на месяца?

[Аватар]

  DecodeDate (dtEnd, dtYear, dtMonth, dtDay);
  if dtDay=1 then DecodeDate (dtEnd-1, dtYear, dtMonth, dtDay);
  dtStart := EnCodeDate(dtYear, dtMonth, 1);

[ViktorR]

Так понимаю, что надо формировать отчет с первого числа предыдущего месяца по первое число текущего месяца.
В этом случае при формировании (кодировании) даты старта надо отнимать 1 из месяца.
Вместе с тем, если это только в середине года, то и все, а если, например, надо будет посчитать и за период с первого декабря предыдущего года по 1-е января текущего, то следует вычитать и из года.

Аватар

DecodeDate (dtEnd, dtYear, dtMonth, dtDay);
if dtDay=1 then DecodeDate (dtEnd-1, dtYear, dtMonth, dtDay);
...

Если я правильно понял, то
dtEnd - это кодированная дата, которая декодируется и значения сохраняются в переменных dtYear, dtMonth, dtDay.
И какой у нее формат?
Можно ли в этом случае писать dtEnd-1. А если формат DDMMYYYY ?

Как-то так, ...

[Аватар]

dtEnd обыкновенный TDateTime, из которого DecodeDate выдергивает год и прочее. А формат у TDateTime - вещественное, точнее Double, целая часть - порядковый номер дня от 30 декабря 1899г., дробное - время, 0.5 - 12 часов. Так что отнимая единицу от 01/01/2015 неизбежно получим 31/12/2014

[ViktorR]

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


Как-то так, ...

[WhiteSadKat]

Ребята, спасибо, буду пробовать. В начале следующего месяца отпишусь))