• Registered: 2014-12-15
  • Posts: 4

Topic: сравнение Дат в DateTimePicker

Две процедуры на дату

procedure DateSpisan_Dev_OnClick (Sender: string);
begin
    frmDevice.DateTimePickerDateSpisan_Dev.MinDate:= frmDevice.DateTimePickerDatePriob_Dev.Date;

   frmDevice.DateTimePickerDateSpisan_Dev.MaxDate:= Date;
end;

procedure DatePriob_Dev_OnClick (Sender: string);
begin
     frmDevice.DateTimePickerDatePriob_Dev.MaxDate:= Date;
end;

выполняется при добавлении новой записи. Первую запись добавляет все верно, но при нажатии добавить новую вылезает ошибка: Failed to set calendar date or set.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: сравнение Дат в DateTimePicker

В коде ошибок не вижу, возможно прячется где то в другом месте, пришлите пожалуйста проект на support@drive-software.com
с описанием порядка действий, приводящих к ошибке.

Dmitry.
  • Registered: 2014-12-15
  • Posts: 4

Re: сравнение Дат в DateTimePicker

Огромное спасибо за помощь.
Для тех кто столкнется с такой же проблемой - при выходе из формы необходимо обнулить значения даты в таймпикере.

Еще вопрос 

       Form1.DateTimePicker_DateUpgrade.MinDate:= SQLExecute('SELECT DISTINCT Dev.DatePriob FROM Dev '+
        'LEFT OUTER JOIN Upgrade ON Upgrade.id_Dev = Dev.id '+
        'WHERE Upgrade.id_Dev = '+Form1.CBName_Dev.sqlValue);

В кратце суть: приравнять минимальную дату в дата пикере, значению из другой таблицы. Выводит: Could not convert variant of type (UnicodeString) into type (Double).

  • Registered: 2014-02-14
  • Posts: 10,294

Re: сравнение Дат в DateTimePicker

Попробуйте так

     Form1.DateTimePicker_DateUpgrade.MinDate:= SQLDateTimeToDateTime( SQLExecute('SELECT DISTINCT Dev.DatePriob FROM Dev '+
        'LEFT OUTER JOIN Upgrade ON Upgrade.id_Dev = Dev.id '+
        'WHERE Upgrade.id_Dev = '+Form1.CBName_Dev.sqlValue) );
Dmitry.
  • Registered: 2014-12-15
  • Posts: 4

Re: сравнение Дат в DateTimePicker

Спасибо. Помогло.