Спасибо)
А у меня ещё вопрос можно так сделать?
Код:
Table1.SetRangeStart;
Table1.KeyExclusive:=false;
Table1.FieldbyName ('Data').AsDateTime:=MonthCalendar1.Date;
Table1.SetRangeEnd;
Table1.KeyExclusive:=false;
Table1.FieldbyName ('Data').AsDateTime:=MonthCalendar2.Date;