Topic: Опять вопрос по Дате
Никак не получается вычислить значение даты:
procedure FormFinans_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
var
dd_count: TDateTime;
dd: string;
begin
// Расчет ПЕНИ
dd:= SQLExecute('SELECT zDataIsp FROM zakaz WHERE (id = ''' + IntToStr(FormFinans.TableGrid4.dbItemID) + ''')');
ShowMessage (dd);
dd_count:=Date(dd);
ShowMessage (dd_count);
FormFinans.Edit2.Text:= IntToStr(DaysBetween(Now,dd_count));
end;
Нужно в Edit записать количество дней между текущей датой и датой из базы.
Такая конструкция ругается на несоответствие форматов.