Разница дат

[Sparky]

Добрый день! Необходимо:если месяц начала = месяцу конца, то значение равно 0, если месяц начала например ноябрь, а месяц окончания декабрь, то значение равно 1, и т.д.
Первая дата берется из DateTimePicker, вторая из таблицы. Как высчитать продолжительность?

[Stilet]

если месяц начала например ноябрь

Какого начала?
Вообще MonthOf() выдаст тебе номер месяца, вот и используй ее.
Есть еще MonthsBetween из Dateutils, которая даст тебе разницу между месяцами дат.

[Sparky]

спасибо вот еще такая проблема:
Есть кнопка прекращение обучения на нажатие такая реакция:

  FormAddTSt.add:=0;
  pos:=DBGrid1.DataSource.DataSet.RecNo;
  DataModule3.IBDataSet10.Insert;
  FormAddTSt.DateTimePicker1.date:=Date;
  FormAddTSt.Edit1.text:='';
  FormAddTSt.edit2.text:='';
  FormAddTSt.showmodal;

Открывается форма с едитами и кнопкой ок при нажатии такая реакция

try
  DataModule3.IBDataSet10.FieldByName('id_student').value:=DataModule3.IBDataSet7.FieldByName('id_student').Value;
  DataModule3.IBDataSet10.FieldByName('id_class').value:=DataModule3.IBDataSet7.FieldByName('id_class').Value;
  DataModule3.IBDataSet10.FieldByName('date_end').value:=DateTimePicker1.datetime;
  DataModule3.IBDataSet10.FieldByName('prichina').value:=edit1.Text;
  DataModule3.IBDataSet10.FieldByName('id_teacher').value:=DataModule3.IBDataSet7.FieldByName('id_teacher').Value;
  DataModule3.IBDataSet10.FieldByName('inf').value:=DataModule3.IBDataSet7.FieldByName('inf').Value;
  DataModule3.IBDataSet10.FieldByName('komment').value:=edit2.text;
  DataModule3.IBDataSet10.FieldByName('date_begin').value:=DataModule3.IBDataSet7.FieldByName('date_z').Value;
  DataModule3.IbQuery11.close;
  DataModule3.IbQuery11.parambyname('id').value:=DataModule3.IBDataSet7.FieldByName('id_kurs').Value;
  DataModule3.IbQuery11.open;
  if DataModule3.IbQuery11.fieldbyname('s1').value=null then
  begin
    DataModule3.IBDataSet10.FieldByName('zatrat').value:=0.0;
    DataModule3.IBDataSet10.FieldByName('agent').value:=0.0;
  end
  else
  begin
    DataModule3.IBDataSet10.FieldByName('zatrat').value:=DataModule3.IbQuery11.fieldbyname('s1').value;
    DataModule3.IBDataSet10.FieldByName('agent').value:=DataModule3.IbQuery11.fieldbyname('s2').value;
  end;
  num:=DataModule3.IBDataSet7.FieldByName('number').value;
  DataModule3.IBDataSet10.FieldByName('prodol').value:=1;
  DataModule3.IBDataSet10.Post;
  DataModule3.IBDataSet10.close;
  DataModule3.IBDataSet10.open;

  DataModule3.IBQuery12.parambyName('id').Value:=DataModule3.IBDataSet7.FieldByName('id_kurs').value;
  DataModule3.IBQuery12.ExecSQL;
  DataModule3.IBQuery13.parambyName('id').Value:=num;
  DataModule3.IBQuery13.ExecSQL;
  DataModule3.IBDataSet7.close;
  DataModule3.IBDataSet7.open;
  if add=0 then
  begin
    FormPar.deleteComboBox(Formkurs.ComboBox1);
    FormPar.InsertComboBox(DataModule3.IBDataSet7,FormKurs.ComboBox1,'fio');
    FormKurs.DBGrid1.DataSource.DataSet.First;
  end
  else
  begin
    //комбо для 22
    FormProd.DBGrid1.DataSource.DataSet.RecNo:=FormProd.pos;
  end;

except on e:EIBInterBaseError do
begin
    MessageBox(self.Handle,'Заполните пожалуйста все необходимые поля','Музыкальная школа на дому',MB_OK or MB_ICONWARNING);
    ModalResult:=mrNone;
    DateTimePicker1.SetFocus;
    flag:=0;
end;
end;

Дак вот когда доходит до post, выдает ошибку:cannot focus a disabled or invisible windows. Не понимаю что не нравится ему, на других формах работает