从一个日历程序中寻找bcb时间函数及ComboBox的一个方法

int y = YearOf(Date());
int m = MonthOf(Date());

TDateTime dtFirst = EncodeDate(year, month, 1);
int week = DayOfWeek(dtFirst);
week -= 1;

int daySum = DayOfTheMonth(EndOfTheMonth(dtFirst));

注：

Date()获取日期

YearOf()获取某日的年份

MonthOf()获取某日的月份

EncodeDate()获取某年某月第N天是系统时间的第几天（1900年1月1日为第一天）；

DayOfWeek()获取一周中的第几天，这里第一天是星期日，所以如果要让星期一为第一天，那么week -= 1；

EndOfTheMonth()获取某月的最后一天；

DayOfTheMonth()获取某日为当月的第几天；

补充一个方法：

ComboBox->Items->IndexOf(string)；

设置string在ComboBox中的索引值；

日历源码：

/*
功能：计算日历中每个单元个的天数
*/
void _fastcall TMain::ShowCalendar(int year, int month)
{
TDateTime dtFirst = EncodeDate(year, month, 1);

int week = DayOfWeek(dtFirst);
week -= 1;
int daySum = DayOfTheMonth(EndOfTheMonth(dtFirst));

int day = 1;

for (int i = 1; i < 7; i++)
{
for (int j = 0; j < 7; j++)
{
if ((i - 1) * 7 + j < week || (i - 1) * 7 + j >= daySum + week)
{
sgCalendar->Cells[j][i] = "";
}
else
{
sgCalendar->Cells[j][i] = IntToStr(day);
if (EncodeDate(year, month, day) == Date())
{
sgCalendar->Row = i;
sgCalendar->Col = j;
}
day++;
}
}
}
}