Реально ли укоротить/оптимизировать код? Посоветуйте

@DirtyBASS · Регистрация: 14.09.2009

Студворк — интернет-сервис помощи студентам

Всем доброго вечера.
Скажите, реально ли укоротить код? И так для каждого месяца аналогичные куски кода. Разница минимальна.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
int chislo_gosp1;
int chislo_gosp2;
 
int chislo_nugd1;
int chislo_nugd2;
 
double stepen_gosp1;
double stepen_gosp2;
/////////////////////////////////январь
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM dynpeople WHERE SDATE between :Date1 and :Date2");
ADOQuery1->Parameters->ParamByName("Date1")->Value = "01.01.2012";
ADOQuery1->Parameters->ParamByName("Date2")->Value = "31.01.2012";
ADOQuery1->Open();
chislo_nugd1 = ADOQuery1->RecordCount;
 
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM dynpeople WHERE (WHYOTKAZ != 'отсутствие места в стационаре' and WHYOTKAZ != 'несвоевременная явка больного' and WHYOTKAZ != 'необоснованное направление' and WHYOTKAZ != 'неполное амбулатор. обследование' and WHYOTKAZ != 'отказ больного' and WHYOTKAZ != 'смерть больного' and WHYOTKAZ != 'в госпитализации не нуждается' and WHYOTKAZ != 'госпитализация в другое ЛПУ')  and (SDATE between :Date1 and :Date2)");
ADOQuery1->Parameters->ParamByName("Date1")->Value = "01.01.2012";
ADOQuery1->Parameters->ParamByName("Date2")->Value = "31.01.2012";
ADOQuery1->Open();
chislo_gosp1 = ADOQuery1->RecordCount;
 
if (chislo_nugd1 !=0 )
{
stepen_gosp1 = (double(chislo_gosp1) * double(100))/double(chislo_nugd1);
} else
{
 stepen_gosp1 = 0;
}
////////////////////////////////февраль
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM dynpeople WHERE SDATE between :Date1 and :Date2");
ADOQuery1->Parameters->ParamByName("Date1")->Value = "01.02.2012";
ADOQuery1->Parameters->ParamByName("Date2")->Value = "29.02.2012";
ADOQuery1->Open();
chislo_nugd2 = ADOQuery1->RecordCount;
 
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM dynpeople WHERE (WHYOTKAZ != 'отсутствие места в стационаре' and WHYOTKAZ != 'несвоевременная явка больного' and WHYOTKAZ != 'необоснованное направление' and WHYOTKAZ != 'неполное амбулатор. обследование' and WHYOTKAZ != 'отказ больного' and WHYOTKAZ != 'смерть больного' and WHYOTKAZ != 'в госпитализации не нуждается' and WHYOTKAZ != 'госпитализация в другое ЛПУ')  and (SDATE between :Date1 and :Date2)");
ADOQuery1->Parameters->ParamByName("Date1")->Value = "01.02.2012";
ADOQuery1->Parameters->ParamByName("Date2")->Value = "29.02.2012";
ADOQuery1->Open();
chislo_gosp2 = ADOQuery1->RecordCount;
 
if (chislo_nugd2 !=0 )
{
stepen_gosp2 = (double(chislo_gosp2) * double(100))/double(chislo_nugd2);
} else
{
 stepen_gosp2 = 0;
}

@Bit_Man · 03.05.2012, 04:57

Лучше 2 ADOQuery.

C++
1
2
ADOQuery1->SQL->Add("SELECT count(*) FROM dynpeople WHERE SDATE between :Date1 and :Date2");
ADOQuery2->SQL->Add("SELECT count(*) FROM dynpeople WHERE .....

подставляй параметры и открывай.
И отпиши в личку что именно делаешь. тема похожая

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .