• Registered: 2018-03-04
  • Posts: 377

Topic: Подскажите, как сделать разность дат.

Хочу написать условие, на одинаковые даты и меньше текущей...

sDate : string = FormatDateTime('yyyy-mm-dd',frmAddNote.DateTimePicker1.DateTime);
begin
    //Проверка на заполнение полей
    if (frmAddNote.ComboBox1.Text='Ожидание') and (Date - StrToDateTime(frmAddNote.DateTimePicker1.DateTime) <=0) then ShowHint(frmAddNote.DateTimePicker1, 'Обязательное поле') else
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите, как сделать разность дат.

Вместо

(Date - StrToDateTime(frmAddNote.DateTimePicker1.DateTime) <=0)

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

((Trunc(Now) - Trunc(frmAddNote.DateTimePicker1.DateTime)) <=0)
Dmitry.
  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите, как сделать разность дат.

Спасибо.