Выбор периода времени DateTimePicker

[AnkaP]

Добрый день!
Помогите, пожалуйста, решить проблему.
Пишу программу по расчету коммунальных услуг. Произвожу расчеты начисления за использованный газ. Так вот, есть период отопительный, для него норма одна, а есть не отопительный - норма другая. Как указать в программе, что если пользователь производит расчеты в период с 1-го октября по 30 апреля, то норма такая-то, а в остальное время - расчет по другой формуле?
На форме имеется 2 DateTimePicker для указания периода времени, за который производится расчет.
Большое спасибо!

[Шульц]

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

var
d1:Integer;
begin
d1:=strtoint(FormatDateTime('mm',DateTimePicker1.Date));
case d1 of
 10,11,12,1,2,3,4:
 begin
  //расчет по одной формуле
 end
else
 begin
  //расчет по другой
 end;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Serge_Bliznykov]

в принципе Шульц прав.
только я бы организовал цикл по всем месяцам от первого месяца до последнего и ДЛЯ КАЖДОГО месяца проверял/считал с проверкой того, какой это месяц, "отапливаемый" или нет... Т.е. выбранный период может быть, например с февраля по июнь, или с января по ноябрь (т.е. в период могут входить как месяцы с учётом отопления, так и без оного...)

p.s. для получения месяца из даты я бы взял из JCL/ (ну, или написал свою на основе DecodeDate, благо это элементарно!:

function Month(const Dt : TDateTime) : word;
var Year, M, Day : Word;
begin
  DecodeDate(Dt, Year, M, Day);
  Month := M;
end;

[AnkaP]

Спасибо, но пока что-то не получается. Я попробовала по методу Шульца - выдает ошибку, когда я выбираю месяцы, не описанные в case. Это скорей всего, что в begin у меня много всяких условий:

begin
   Ngaz := Edit1.Text; // показание счетчика
 if lgota=1 then // если льгота отсутствует (1-id в БД)
   OPLATA_G{сумма к оплате} := (strtoint(Ngaz)-gaz)*tarifG else 
     NACHISLENO_G{кол-во использованого газа} := strtoint(Ngaz)-gaz;
     NORMA_G{норма потребления} := kol_lgot*usl_G+ind_otop*S;
      if NACHISLENO_G > NORMA_G then
       OPLATA_G := NORMA_G*tarifG*lgota + (NACHISLENO_G-NORMA_G)*tarifG else
       OPLATA_G := NACHISLENO_G*tarifG*lgota;
    Label10.Caption := floattostr(OPLATA_G);
    end;

Вот такой у меня расчет без месяцев. Когда применяю предложенный Вами вариант, то во втором begin в этой формуле

     NORMA_G{норма потребления} := kol_lgot*usl_G+ind_otop*S;

я удаляю ind_otop*S - это как раз отопление, и появляется ошибка при расчете 5-го, 6-го и т.д. месяцев

[Шульц]

Дай весь код, и место, где возникает ошибка.

[AnkaP]

procedure TForm4.SpeedButton1Click(Sender: TObject);
var  kol_lgot, kol_bez, ind_otop, usl_G: integer; 
      lgota, tarifG, OPLATA_G: double; 
      gaz: integer; 
     NACHISLENO_G, NORMA_G, d1: integer;
     Ngaz: string;
begin
d1:=strtoint(FormatDateTime('mm',DateTimePicker1.Date));
case d1 of
10,11,12,1,2,3,4:
begin
   Ngaz := Edit1.Text;
 if lgota=1 then
   OPLATA_G := (strtoint(Ngaz)-gaz)*tarifG
   else
     NACHISLENO_G := strtoint(Ngaz)-gaz;
     NORMA_G := kol_lgot*usl_G+ind_otop*S;
      if NACHISLENO_G > NORMA_G then
       OPLATA_G:= NORMA_G*tarifG*lgota + (NACHISLENO_G-NORMA_G)*tarifG
       else
        OPLATA_G := NACHISLENO_G*tarifG*lgota;
    end
else
 begin
 if lgota=1 then
   OPLATA_G :=  (strtoint(Ngaz)-gaz)*tarifG else
     NACHISLENO_G := strtoint(Ngaz)-gaz;
     NORMA_G := kol_lgot*usl_G;
       if NACHISLENO_G > NORMA_G then
     OPLATA_G:= NORMA_G*tarifG*lgota + (NACHISLENO_G-NORMA_G)*tarifG 
 else
      OPLATA_G := NACHISLENO_G*tarifG*lgota;
Label10.Caption := floattostr(OPLATA_G);

Считает только первый begin, а когда выбираю в DateTimePicker период не входящий в case (июль, например) - то не считает.
Сделала так:

begin
d1:=strtoint(FormatDateTime('mm',DateTimePicker1.Date));
case d1 of
10,11,12,1,2,3,4:
begin
   Ngaz := Edit1.Text;
 if lgota=1 then
   OPLATA_G := (strtoint(Ngaz)-gaz)*tarifG
   else
   begin
     NACHISLENO_G := strtoint(Ngaz)-gaz;
     NORMA_G := kol_lgot*usl_G+ind_otop*S;
    end; end
    else
    NORMA_G:= kol_lgot*usl_G;
      if NACHISLENO_G > NORMA_G then
       OPLATA_G:= NORMA_G*tarifG*lgota + (NACHISLENO_G-NORMA_G)*tarifG
       else
        OPLATA_G := NACHISLENO_G*tarifG*lgota;
 Label10.Caption := floattostr(OPLATA_G);
    end;

Так вообще ничего в Label не выводит ((((((((

[Шульц]

Ну в конце перед Лаблом два End не дописал, а так вроде все правильно.

[AnkaP]

Попробую еще сама поковырять. Спасибо!

[AnkaP]

Заработало когда вот так:

begin
d1:=strtoint(FormatDateTime('mm',DateTimePicker1.Date));
Ngaz := Edit1.Text;
NACHISLENO_G := strtoint(Ngaz)-gaz;
case d1 of
10,11,12,1,2,3,4:
begin
  if lgota=1 then
   OPLATA_G := NACHISLENO_G*tarifG
  else
   begin
    NORMA_G := kol_lgot*usl_G+ind_otop*S;
    if NACHISLENO_G > NORMA_G then
    OPLATA_G := NORMA_G*tarifG*lgota + (NACHISLENO_G-NORMA_G)*tarifG
       else
        OPLATA_G := NACHISLENO_G*tarifG*lgota;
        Label10.Caption := floattostr(OPLATA_G);
   end;
end
    else
begin
  NORMA_G := kol_lgot*usl_G;
  if NACHISLENO_G > NORMA_G then
  OPLATA_G := NORMA_G*tarifG*lgota + (NACHISLENO_G-NORMA_G)*tarifG
     else
      OPLATA_G := NACHISLENO_G*tarifG*lgota;
      Label10.Caption := floattostr(OPLATA_G);
end;
end;