path: root/plugins/TrafficCounter/src/statistics.cpp

/*
Traffic Counter plugin for Miranda IM 
Copyright 2007-2011 Mironych.

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*/
/* ======================================================================================
Здесь содержатся переменные и функции для работы со статистикой
Автор: Mironych
=======================================================================================*/

#include "stdafx.h"

WORD Stat_SelAcc; // Выбранные аккаунты в окне статистики

HWND hListAccs;

INT_PTR CALLBACK DlgProcOptStatistics(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
	WORD i;

	switch (msg) {
	case WM_INITDIALOG:
		TranslateDialogDefault(hwndDlg);
		// Создаём ListBox c перечнем аккаунтов.
		hListAccs = CreateWindowEx(WS_EX_CLIENTEDGE,
			L"ListBox",
			nullptr, WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP | LBS_NOINTEGRALHEIGHT | LBS_EXTENDEDSEL | LBS_NOTIFY,
			2, 20, 246, 112,
			hwndDlg, nullptr, nullptr, nullptr);
		SendMessage(hListAccs, WM_SETFONT, (WPARAM)(HFONT)GetStockObject(DEFAULT_GUI_FONT), 0);
		for (i = 0; i < NumberOfAccounts; i++) {
			// Готовим список аккаунтов
			if (ProtoList[i].tszAccountName)
				SendMessage(hListAccs, LB_ADDSTRING, 0, (LPARAM)ProtoList[i].tszAccountName);
		}
		for (i = NumberOfAccounts; i--;)
			SendMessage(hListAccs, LB_SETSEL, (WPARAM)0x01 & (Stat_SelAcc >> i), (LPARAM)i);
		// Готовим список единиц измерения
		SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("Bytes"));
		SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("KB"));
		SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("MB"));
		SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("Adaptive"));
		SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_SETCURSEL, unOptions.Stat_Units, 0);
		// Готовим закладки
		{
			TCITEM tci;
			tci.mask = TCIF_TEXT;
			tci.pszText = TranslateT("Hourly");
			SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 0, (LPARAM)&tci);
			tci.pszText = TranslateT("Daily");
			SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 1, (LPARAM)&tci);
			tci.pszText = TranslateT("Weekly");
			SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 2, (LPARAM)&tci);
			tci.pszText = TranslateT("Monthly");
			SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 3, (LPARAM)&tci);
			tci.pszText = TranslateT("Yearly");
			SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 4, (LPARAM)&tci);
			SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_SETCURSEL, unOptions.Stat_Tab, 0);
		}
		// Готовим ListView - колонки и стили
		{
			SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, LVS_EX_FULLROWSELECT);
			SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_SETUNICODEFORMAT, 1, 0);

			LVCOLUMN lvc = { 0 };
			lvc.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;
			lvc.fmt = LVCFMT_LEFT;
			lvc.pszText = TranslateT("Period");
			lvc.cx = 135;
			lvc.iSubItem = 0;
			SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 0, (LPARAM)&lvc);
			lvc.fmt = LVCFMT_RIGHT;
			lvc.pszText = TranslateT("Incoming");
			lvc.iSubItem = 1;
			lvc.cx = 72;
			SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 1, (LPARAM)&lvc);
			lvc.pszText = TranslateT("Outgoing");
			lvc.iSubItem = 2;
			lvc.cx = 72;
			SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 2, (LPARAM)&lvc);
			lvc.pszText = TranslateT("Sum");
			lvc.iSubItem = 3;
			lvc.cx = 72;
			SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 3, (LPARAM)&lvc);
			lvc.pszText = TranslateT("Online");
			lvc.iSubItem = 4;
			lvc.cx = 72;
			SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 4, (LPARAM)&lvc);
		}
		Stat_Show(hwndDlg);
		break; // WM_INITDIALOG
	case WM_COMMAND:
		if ((HWND)lParam == hListAccs) {
			DWORD SelItems[16];
			BYTE SelItemsCount;
			if (HIWORD(wParam) == LBN_SELCHANGE) {
				SelItemsCount = SendMessage(hListAccs, LB_GETSELCOUNT, 0, 0);
				SendMessage(hListAccs,
					LB_GETSELITEMS,
					SelItemsCount,
					(LPARAM)SelItems);
				for (Stat_SelAcc = i = 0; i < SelItemsCount; i++)
					Stat_SelAcc |= 1 << SelItems[i];
				Stat_Show(hwndDlg);
			}
		}
		switch (LOWORD(wParam)) {
		case IDC_COMBO_UNITS:
			if (HIWORD(wParam) != CBN_SELCHANGE) break;
			unOptions.Stat_Units = SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_GETCURSEL, 0, 0);
			Stat_Show(hwndDlg);
			break;
		case IDC_BUTTON_CLEAR:
			{
				SYSTEMTIME stNow;

				if (IDOK != MessageBox(hwndDlg,
					TranslateT("Now traffic statistics for selected accounts will be cleared.\nContinue?"),
					TranslateT("Traffic counter"),
					MB_OKCANCEL | MB_ICONWARNING))
					break;
				GetLocalTime(&stNow);
				for (i = NumberOfAccounts; i--;)
					if (0x01 & (Stat_SelAcc >> i)) {
						SetFilePointer(ProtoList[i].hFile, sizeof(HOURLYSTATS), nullptr, FILE_BEGIN);
						SetEndOfFile(ProtoList[i].hFile); // Усекаем файл до одной записи.
						ProtoList[i].NumberOfRecords = 1;
						ProtoList[i].AllStatistics = (HOURLYSTATS*)mir_realloc(ProtoList[i].AllStatistics, sizeof(HOURLYSTATS));
						ProtoList[i].AllStatistics[0].Hour = stNow.wHour;
						ProtoList[i].AllStatistics[0].Day = stNow.wDay;
						ProtoList[i].AllStatistics[0].Month = stNow.wMonth;
						ProtoList[i].AllStatistics[0].Year = stNow.wYear;
						ProtoList[i].AllStatistics[0].Incoming = 0;
						ProtoList[i].AllStatistics[0].Outgoing = 0;
						ProtoList[i].StartIncoming = 0;
						ProtoList[i].StartOutgoing = 0;
						ProtoList[i].AllStatistics[0].Time = 0;
						ProtoList[i].Total.TimeAtStart = GetTickCount();
						Stat_CheckStatistics(i);
					}
				Stat_Show(hwndDlg);
			}
			break;
		}
		break; // WM_COMMAND
	case WM_NOTIFY:
		{
			LPNMHDR lpnmhdr = (LPNMHDR)lParam;

			switch (lpnmhdr->idFrom) {
			case IDC_TAB_STATS:
				if (lpnmhdr->code != TCN_SELCHANGE) break;
				unOptions.Stat_Tab = SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_GETCURSEL, 0, 0);
				Stat_Show(hwndDlg);
				break;
			case IDC_LIST_DATA:
				switch (lpnmhdr->code) {
				case LVN_GETDISPINFO:
					{
						NMLVDISPINFO* pdi = (NMLVDISPINFO*)lParam;
						SYSTEMTIME st = { 0 };
						DWORD Index, Value;
						double vartime;
						wchar_t szBufW[64];
						BYTE EldestAcc;

						if (!(pdi->item.mask & LVIF_TEXT)) return 0;

						// Если нужна надпись.
						if (!pdi->item.iSubItem) {
							EldestAcc = Stat_GetEldestAcc(Stat_SelAcc);
							// Индекс применим только для самого старого аккаунта!
							Index = Stat_GetStartIndex(EldestAcc, unOptions.Stat_Tab, pdi->item.iItem, &st);
							switch (unOptions.Stat_Tab) {
							case 0: // Hourly
								GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, nullptr, szBufW, 32);
								mir_snwprintf(pdi->item.pszText, 32, L"%s %02d:00 - %02d:59",
									szBufW,
									ProtoList[EldestAcc].AllStatistics[Index].Hour,
									ProtoList[EldestAcc].AllStatistics[Index].Hour);
								break;
							case 1: // Dayly
								GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, nullptr, pdi->item.pszText, 32);
								break;
							case 2: // Weekly
								// Уходим к первому понедельнику слева.
								SystemTimeToVariantTime(&st, &vartime);
								vartime -= DayOfWeek(st.wDay, st.wMonth, st.wYear) - 1;
								VariantTimeToSystemTime(vartime, &st);
								GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, nullptr, pdi->item.pszText, 32);
								// Теперь к воскресенью.
								SystemTimeToVariantTime(&st, &vartime);
								vartime += 6;
								VariantTimeToSystemTime(vartime, &st);
								GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, nullptr, szBufW, 32);
								mir_snwprintf(pdi->item.pszText, 32, L"%s - %s", pdi->item.pszText, szBufW);
								break;
							case 3: // Monthly
								GetDateFormat(LOCALE_USER_DEFAULT, DATE_YEARMONTH, &st, nullptr, pdi->item.pszText, 32);
								break;
							case 4:	// Yearly
								mir_snwprintf(pdi->item.pszText, 32, L"%d", st.wYear);
								break;
							}
							return 0;
						}

						Value = Stat_GetItemValue(Stat_SelAcc, unOptions.Stat_Tab, pdi->item.iItem, pdi->item.iSubItem);

						// Теперь можно записать в ListView циферки.
						switch (pdi->item.iSubItem) {
						case 1: // Входящий
						case 2: // Исходящий
						case 3: // Сумма
							GetFormattedTraffic(Value, unOptions.Stat_Units, pdi->item.pszText, 32);
							break;
						case 4: // Время
							{
								wchar_t *Fmt[5] = { L"m:ss", L"h:mm:ss", L"h:mm:ss", L"d hh:mm:ss", L"d hh:mm:ss" };
								GetDurationFormatM(Value, Fmt[unOptions.Stat_Tab], pdi->item.pszText, 32);
							}
							break;
						}
					}
					break;

				case NM_CLICK:
				case LVN_ITEMCHANGED:
					{
						DWORD j = -1, dwTotalIncoming = 0, dwTotalOutgoing = 0;

						i = SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_GETSELECTEDCOUNT, 0, 0);
						for (; i--;) {
							j = SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_GETNEXTITEM, j, LVNI_SELECTED);
							dwTotalIncoming += Stat_GetItemValue(Stat_SelAcc, unOptions.Stat_Tab, j, 1);
							dwTotalOutgoing += Stat_GetItemValue(Stat_SelAcc, unOptions.Stat_Tab, j, 2);
						}
						Stat_UpdateTotalTraffic(hwndDlg, dwTotalIncoming, dwTotalOutgoing);
					}
					break;

				case NM_CUSTOMDRAW:
					{
						LPNMLVCUSTOMDRAW lplvcd = (LPNMLVCUSTOMDRAW)lParam;

						switch (lplvcd->nmcd.dwDrawStage) {
						case CDDS_PREPAINT: // Перед началом рисования всего ListView.
							SetWindowLongPtr(hwndDlg, DWLP_MSGRESULT, CDRF_NOTIFYITEMDRAW);
							return TRUE;
						case CDDS_ITEMPREPAINT: // Перед началом рисования строки.
							{
								COLORREF Color;
								BYTE r, g, b;

								if (lplvcd->nmcd.dwItemSpec & 0x01) {
									Color = SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_GETBKCOLOR, 0, 0);
									r = GetRValue(Color);
									g = GetGValue(Color);
									b = GetBValue(Color);
									r += r > 0x80 ? -40 : 40;
									g += g > 0x80 ? -40 : 40;
									b += b > 0x80 ? -40 : 40;
									lplvcd->clrTextBk = RGB(r, g, b);
								}
								SetWindowLongPtr(hwndDlg, DWLP_MSGRESULT, CDRF_NEWFONT);
								return TRUE;
							}
						}
					}
					break;
				}
				break;
			}
		}
		break; // WM_NOTIFY
	}
	return 0;
}

/*
Функция читает статистику из файла для аккаунта с номером n.
*/
void Stat_ReadFile(BYTE n)
{
	LARGE_INTEGER Size;
	DWORD BytesRead;
	wchar_t FileName[MAX_PATH], *pszPath;
	SYSTEMTIME stNow;

	pszPath = Utils_ReplaceVarsW(L"%miranda_userdata%\\statistics");
	CreateDirectoryTreeW(pszPath);
	mir_snwprintf(FileName, L"%s\\%S.stat", pszPath, ProtoList[n].name);
	mir_free(pszPath);
	GetLocalTime(&stNow);
	ProtoList[n].hFile = CreateFile(FileName, GENERIC_READ | GENERIC_WRITE,
		FILE_SHARE_READ, nullptr, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, nullptr);
	GetFileSizeEx(ProtoList[n].hFile, &Size);
	if (Size.QuadPart != 0) // Если файл со статистикой существует и имеет ненулевой размер...
	{
		// ...то читаем статистику из файла
		ProtoList[n].NumberOfRecords = DWORD(Size.QuadPart / sizeof(HOURLYSTATS));
		ProtoList[n].AllStatistics = (HOURLYSTATS*)mir_alloc(sizeof(HOURLYSTATS)*ProtoList[n].NumberOfRecords);
		ReadFile(ProtoList[n].hFile, &ProtoList[n].AllStatistics[0], sizeof(HOURLYSTATS)*ProtoList[n].NumberOfRecords, &BytesRead, nullptr);
		if (!BytesRead) {
			MessageBox(TrafficHwnd, TranslateT("Couldn't read statistics file"), TranslateT("Traffic Counter"), MB_OK);
			return;
		}
	}
	else {
		// Необходимо создать новый файл.
		ProtoList[n].NumberOfRecords = 1;
		ProtoList[n].AllStatistics = (HOURLYSTATS*)mir_alloc(sizeof(HOURLYSTATS));
		ProtoList[n].AllStatistics[0].Hour = stNow.wHour;
		ProtoList[n].AllStatistics[0].Day = stNow.wDay;
		ProtoList[n].AllStatistics[0].Month = stNow.wMonth;
		ProtoList[n].AllStatistics[0].Year = stNow.wYear;
		ProtoList[n].AllStatistics[0].Incoming =
			ProtoList[n].AllStatistics[0].Outgoing =
			ProtoList[n].AllStatistics[0].Time = 0;
	}
	Stat_CheckStatistics(n);
}

/* Функция готовит вывод в ListView статистики.
Аргументы: hwndDialog - хэндл окна диалога. */
void Stat_Show(HWND hwndDialog)
{
	DWORD MaxRecords;

	// Нужно узнать количество записей.
	MaxRecords = Stat_GetRecordsNumber(Stat_GetEldestAcc(Stat_SelAcc), unOptions.Stat_Tab);
	// Установим такое же количество строк в ListView.
	SendDlgItemMessage(hwndDialog, IDC_LIST_DATA, LVM_SETITEMCOUNT, MaxRecords, 0);
	// Надо показать самые свежие записи.
	SendDlgItemMessage(hwndDialog, IDC_LIST_DATA, LVM_ENSUREVISIBLE, (WPARAM)(MaxRecords - 1), 0);
}

void Stat_UpdateTotalTraffic(HWND hwndDialog, DWORD Incoming, DWORD Outgoing)
{
	wchar_t tmp[32];

	GetFormattedTraffic(Incoming, unOptions.Stat_Units, tmp, 32);
	SetDlgItemText(hwndDialog, IDC_STATIC_DNL, tmp);
	GetFormattedTraffic(Outgoing, unOptions.Stat_Units, tmp, 32);
	SetDlgItemText(hwndDialog, IDC_STATIC_UPL, tmp);
	GetFormattedTraffic(Incoming + Outgoing, unOptions.Stat_Units, tmp, 32);
	SetDlgItemText(hwndDialog, IDC_STATIC_SUMM, tmp);
}

/*
Функция сравнивает с текущим время последней записи в статистике для аккаунта с номером n.
Если они совпадают, ничего не происходит.
Если текущее время меньше времени последней записи (часы перевели назад),
количество записей уменьшается на соответствующее количество часов.
Если текущее время больше, в статистику включается необходимое количество пустых записей.
*/
void Stat_CheckStatistics(BYTE n)
{
	SYSTEMTIME stNow, stLast = { 0 };
	HOURLYSTATS htTmp = { 0 };
	signed short int d;//, i;
	DWORD q;

	stLast.wHour = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1].Hour;
	stLast.wDay = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1].Day;
	stLast.wMonth = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1].Month;
	stLast.wYear = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1].Year;

	GetLocalTime(&stNow);
	d = TimeCompare(stNow, stLast);
	// Если текущее время совпадает со временем последней записи...
	if (!d) {
		// ...сохраняем запись в файл и уходим.
		SetFilePointer(ProtoList[n].hFile, -LONG(sizeof(HOURLYSTATS)), nullptr, FILE_END);
		WriteFile(ProtoList[n].hFile, &ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1], sizeof(HOURLYSTATS), &q, nullptr);
		return;
	}

	// Если часы перевели назад.
	if (d < 0) {
		do {
			stLast.wHour--;
			if (stLast.wHour == 0xFFFF) {
				stLast.wDay--;
				if (!stLast.wDay) {
					stLast.wMonth--;
					if (!stLast.wMonth) {
						stLast.wMonth = 12;
						stLast.wYear--;
					}
					stLast.wDay = DaysInMonth(htTmp.Month, htTmp.Year);
				}
			}

			ProtoList[n].NumberOfRecords--;
		} while (TimeCompare(stNow, stLast));
		return;
	}

	if (d > 0) {
		// Сохраняем.
		SetFilePointer(ProtoList[n].hFile, -LONG(sizeof(HOURLYSTATS)), nullptr, FILE_END);
		WriteFile(ProtoList[n].hFile, &ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1], sizeof(HOURLYSTATS), &q, nullptr);

		// Последняя запись из статистики понадобится для вычисления новых записей, поэтому копируем её (кроме трафика и времени).
		memcpy(&htTmp, &ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1],
			sizeof(HOURLYSTATS) - 2 * sizeof(DWORD) - sizeof(WORD));
		// Счётчик времени каждый час должен начинать считать с нуля.
		ProtoList[n].Total.TimeAtStart = GetTickCount() - stNow.wMilliseconds;

		do {
			ProtoList[n].AllStatistics =
				(HOURLYSTATS*)mir_realloc(ProtoList[n].AllStatistics, sizeof(HOURLYSTATS) * ++ProtoList[n].NumberOfRecords);

			htTmp.Hour++;
			if (htTmp.Hour > 23) {
				htTmp.Hour = 0; htTmp.Day++;
				if (htTmp.Day > DaysInMonth(htTmp.Month, htTmp.Year)) {
					htTmp.Day = 1; htTmp.Month++;
					if (htTmp.Month > 12) {
						htTmp.Month = 1; htTmp.Year++;
					}
				}
			}

			stLast.wHour = htTmp.Hour;
			stLast.wDay = htTmp.Day;
			stLast.wMonth = htTmp.Month;
			stLast.wYear = htTmp.Year;

			// Добавляем записи одновременно в ОЗУ и в файл.
			WriteFile(ProtoList[n].hFile, &htTmp, sizeof(HOURLYSTATS), &q, nullptr);
			memcpy(&ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1], &htTmp, sizeof(HOURLYSTATS));

		} while (TimeCompare(stNow, stLast));
	}
}

/* Функция возращает индекс первой записи в статистике, относящейся к выбранному интервалу.
При вычислении учитывается выбранный интервал и аккаунты.
Аргументы:
ItemNumber - номер строки в ListView (номер периода).
stReq - дата, соответствующая вычисленному индексу.
*/
DWORD Stat_GetStartIndex(BYTE AccNum, BYTE Interval, DWORD ItemNumber, SYSTEMTIME *stReq)
{
	DWORD Left, Right, Probe; // Границы интервала для поиска (индексы статистики).
	SYSTEMTIME stProbe = { 0 }; // Время тыка.
	signed short int d = 1;

	if (!ItemNumber) {
		stReq->wHour = ProtoList[AccNum].AllStatistics[0].Hour;
		stReq->wDay = ProtoList[AccNum].AllStatistics[0].Day;
		stReq->wMonth = ProtoList[AccNum].AllStatistics[0].Month;
		stReq->wYear = ProtoList[AccNum].AllStatistics[0].Year;
		return 0;
	}

	// Вычисляем время, соответствующее началу интервала.
	for (Probe = 0, Left = 1; Left < ProtoList[AccNum].NumberOfRecords; Left++) {
		switch (Interval) {
		case STAT_INTERVAL_HOUR:
			stReq->wHour = ProtoList[AccNum].AllStatistics[ItemNumber].Hour;
			stReq->wDay = ProtoList[AccNum].AllStatistics[ItemNumber].Day;
			stReq->wMonth = ProtoList[AccNum].AllStatistics[ItemNumber].Month;
			stReq->wYear = ProtoList[AccNum].AllStatistics[ItemNumber].Year;
			return ItemNumber;
			break;
		case STAT_INTERVAL_DAY:
			if (ProtoList[AccNum].AllStatistics[Left].Day != ProtoList[AccNum].AllStatistics[Left - 1].Day)
				Probe++;
			break;
		case STAT_INTERVAL_WEEK:
			if (!ProtoList[AccNum].AllStatistics[Left].Hour
				&& DayOfWeek(ProtoList[AccNum].AllStatistics[Left].Day,
				ProtoList[AccNum].AllStatistics[Left].Month,
				ProtoList[AccNum].AllStatistics[Left].Year) == 1)
				Probe++;
			break;
		case STAT_INTERVAL_MONTH:
			if (ProtoList[AccNum].AllStatistics[Left].Month != ProtoList[AccNum].AllStatistics[Left - 1].Month)
				Probe++;
			break;
		case STAT_INTERVAL_YEAR:
			if (ProtoList[AccNum].AllStatistics[Left].Year != ProtoList[AccNum].AllStatistics[Left - 1].Year)
				Probe++;
			break;
		}
		if (Probe == ItemNumber) break;
	}

	stReq->wHour = ProtoList[AccNum].AllStatistics[Left].Hour;
	stReq->wDay = ProtoList[AccNum].AllStatistics[Left].Day;
	stReq->wMonth = ProtoList[AccNum].AllStatistics[Left].Month;
	stReq->wYear = ProtoList[AccNum].AllStatistics[Left].Year;

	Left = 0; Right = ProtoList[AccNum].NumberOfRecords - 1;

	// Вычисляем индекс начала интервала.
	while (TRUE) {
		if (Right - Left == 1) return Right;
		Probe = (Left + Right) >> 1;
		stProbe.wYear = ProtoList[AccNum].AllStatistics[Probe].Year;
		stProbe.wMonth = ProtoList[AccNum].AllStatistics[Probe].Month;
		stProbe.wDay = ProtoList[AccNum].AllStatistics[Probe].Day;
		stProbe.wHour = ProtoList[AccNum].AllStatistics[Probe].Hour;
		d = TimeCompare(*stReq, stProbe);
		if (!d) break;
		if (d < 0) Right = Probe;
		if (d > 0) Left = Probe;
	}
	return Probe;
}

/* Функция устанавливает величину сдвига для заданного аккаунта,
то есть номер записи в статистике старейшего из выбранных аккаунтов,
дата которой соответствует началу статистики указанного аккаунта. */
void Stat_SetAccShift(BYTE AccNum, BYTE EldestAccount)
{
	DWORD Left, Right, Probe = 0; // Границы интервала для поиска (индексы статистики).
	SYSTEMTIME stReq = { 0 }, stProbe;
	signed short int d = 1;

	if (AccNum == EldestAccount) {
		ProtoList[AccNum].Shift = 0;
		return;
	}

	stReq.wHour = ProtoList[AccNum].AllStatistics[0].Hour;
	stReq.wDay = ProtoList[AccNum].AllStatistics[0].Day;
	stReq.wMonth = ProtoList[AccNum].AllStatistics[0].Month;
	stReq.wYear = ProtoList[AccNum].AllStatistics[0].Year;

	// Вычисляем индекс начала интервала.
	Left = 0; Right = ProtoList[EldestAccount].NumberOfRecords - 1;
	while (TRUE) {
		if (Right - Left == 1) {
			ProtoList[AccNum].Shift = Probe + d;
			return;
		}
		Probe = (Left + Right) >> 1;
		stProbe.wYear = ProtoList[EldestAccount].AllStatistics[Probe].Year;
		stProbe.wMonth = ProtoList[EldestAccount].AllStatistics[Probe].Month;
		stProbe.wDay = ProtoList[EldestAccount].AllStatistics[Probe].Day;
		stProbe.wHour = ProtoList[EldestAccount].AllStatistics[Probe].Hour;
		d = TimeCompare(stReq, stProbe);
		if (!d) break;
		if (d < 0) Right = Probe;
		if (d > 0) Left = Probe;
	}
	ProtoList[AccNum].Shift = Probe;
}

/* Функция вычисляет значение, соответствующее указанному подэлементу
указанной строки ListView.
Аргументы:
SelectedAccs - слово, в котором единичные биты соответствуют выбранным аккаунтам;
Interval - выбранный интервал;
ItemNum - номер строки в ListVew;
SubitemNum - номер колонки, определяет вид информации. */

DWORD Stat_GetItemValue(WORD SelectedAccs, BYTE Interval, DWORD ItemNum, BYTE SubItemNum)
{
	DWORD Result = 0;
	SYSTEMTIME st = { 0 };
	DWORD Index, IndexP, i;
	signed long int IndexM;
	BYTE a, EldestAcc;

	EldestAcc = Stat_GetEldestAcc(SelectedAccs);
	Index = Stat_GetStartIndex(EldestAcc, Interval, ItemNum, &st);

	for (a = NumberOfAccounts; a--;) {
		if (!((1 << a) & SelectedAccs)) continue;
		Stat_SetAccShift(a, EldestAcc);
		IndexM = Index - ProtoList[a].Shift;
		IndexP = Index;

		for (i = 0;;) {
			if (IndexM >= 0)
				switch (SubItemNum) {
				case 1: // Входящий
					Result += ProtoList[a].AllStatistics[IndexM].Incoming;
					break;
				case 2: // Исходящий
					Result += ProtoList[a].AllStatistics[IndexM].Outgoing;
					break;
				case 3: // Сумма
					Result += ProtoList[a].AllStatistics[IndexM].Incoming
						+ ProtoList[a].AllStatistics[IndexM].Outgoing;
					break;
				case 4: // Время
					Result += ProtoList[a].AllStatistics[IndexM].Time;
					break;
			}

			IndexM++; IndexP++; // Переходим к следующей записи.
			if (IndexM == ProtoList[a].NumberOfRecords)
				break;

			// Когда остановиться?
			switch (Interval) {
			case STAT_INTERVAL_HOUR:
				i = 1; // Новый час начинается каждый час.
				break;
			case STAT_INTERVAL_DAY:
				i = (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);
				break;
			case STAT_INTERVAL_WEEK:
				i = (1 == DayOfWeek(ProtoList[EldestAcc].AllStatistics[IndexP].Day,
					ProtoList[EldestAcc].AllStatistics[IndexP].Month,
					ProtoList[EldestAcc].AllStatistics[IndexP].Year))
					&& (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);
				break;
			case STAT_INTERVAL_MONTH:
				i = (1 == ProtoList[EldestAcc].AllStatistics[IndexP].Day)
					&& (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);
				break;
			case STAT_INTERVAL_YEAR:
				i = (1 == ProtoList[EldestAcc].AllStatistics[IndexP].Month)
					&& (1 == ProtoList[EldestAcc].AllStatistics[IndexP].Day)
					&& (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);
				break;
			}

			if (i) break;
		}
	}

	return Result;
}

/* Функция возвращает количество записей в статистике для
заданного аккаунта и заданного интервала. */
DWORD Stat_GetRecordsNumber(BYTE AccNum, BYTE Interval)
{
	DWORD Result, i;

	// Нужно узнать количество записей.
	switch (Interval) {
	case STAT_INTERVAL_HOUR:
		Result = ProtoList[AccNum].NumberOfRecords; // Для почасовой статистики совпадает.
		break;
	case STAT_INTERVAL_DAY:
		for (Result = 1, i = ProtoList[AccNum].NumberOfRecords - 1; i--;)
			if (ProtoList[AccNum].AllStatistics[i].Day != ProtoList[AccNum].AllStatistics[i + 1].Day)
				Result++;
		break;
	case STAT_INTERVAL_WEEK:
		for (Result = 1, i = ProtoList[AccNum].NumberOfRecords; i--;)
			if (ProtoList[AccNum].AllStatistics[i].Hour == 23
				&& DayOfWeek(ProtoList[AccNum].AllStatistics[i].Day,
				ProtoList[AccNum].AllStatistics[i].Month,
				ProtoList[AccNum].AllStatistics[i].Year) == 7)
				Result++;
		break;
	case STAT_INTERVAL_MONTH:
		for (Result = 1, i = ProtoList[AccNum].NumberOfRecords - 1; i--;)
			if (ProtoList[AccNum].AllStatistics[i].Month != ProtoList[AccNum].AllStatistics[i + 1].Month)
				Result++;
		break;
	case STAT_INTERVAL_YEAR:
		for (Result = 1, i = ProtoList[AccNum].NumberOfRecords - 1; i--;)
			if (ProtoList[AccNum].AllStatistics[i].Year != ProtoList[AccNum].AllStatistics[i + 1].Year)
				Result++;
		break;
	default:
		return 0;
	}

	return Result;
}

BYTE Stat_GetEldestAcc(WORD SelectedAccs)
{
	BYTE Result, i;

	// Узнаём номер аккаунта из числа выбранных, имеющего самую старую первую запись.
	// (Это аккаунт с максимальным количеством записей.)
	for (Result = i = 0; i < NumberOfAccounts; i++) {
		// Надо с чего-то начать поиск.
		if (0x01 & (SelectedAccs >> i)) {
			Result = i;
			break;
		}
	}
	// Продолжаем поиск.
	for (; ++i < NumberOfAccounts;) {
		if (0x01 & (SelectedAccs >> i) && (ProtoList[i].NumberOfRecords > ProtoList[Result].NumberOfRecords))
			Result = i;
	}

	return Result;
}