void HomeBudget::Setup()
{
...
	Date dt = GetSysDate();
	dt.day = 1;
...
	GenMonthList(dt.year);

void HomeBudget::ChangeDate()
{
	dtid = month(ID);
	LoadMoney(dtid);
	UpdateSummary();
	GenMonthList(((Date) month(DT)).year);
}

void HomeBudget::GenMonthList(int year)
{
	months.Clear();
	int curr_year = GetSysDate().year;
	int scan_year = min(year,curr_year) - 1;
	int max_year = max(year,curr_year);
	for(int scan_year = min(year,curr_year) - 1; scan_year <= max_year; scan_year++)
		for(int i = 0; i < 12; i++)
			months.Add(Date(scan_year, i + 1, 1), Format("%Month %.4d", i + 1, scan_year));
}

TABLE_(CATEGORIES)
	INT 	(ID) PRIMARY_KEY
	INT_    (GR_ID) INDEX
...
TABLE_(MONEY)
	INT  (ID) PRIMARY_KEY
	INT_ (DT_ID) INDEX
	INT_ (CAT_ID) INDEX