Delphi中FireDAC调用SQLite的timediff函数报错，该如何解决？

SQLite本身没有内置timediff函数，你在HeidiSQL里能执行成功，是因为HeidiSQL作为客户端工具自行实现了这个函数并注入到SQLite会话中；而FireDAC连接的是原生SQLite环境，没有该扩展函数，因此执行时会报错。

有两种可行的处理方式：

方式1：用SQLite原生日期函数替代 #

利用SQLite内置的julianday、strftime等函数实现时间差计算，模拟timediff的效果。示例代码：

-- 计算时间差并返回类似格式的结果
SELECT 
  '+' || strftime('%Y-%m-%d %H:%M:%f', julianday('now') - julianday('1809-02-12'), 'unixepoch') 
  AS timediff_result;

如果需要和HeidiSQL的timediff输出完全一致（精确到年/月/日间隔），可通过拆分日期部分计算差值后拼接字符串，示例：

SELECT
  printf('+%04d-%02d-%02d %s',
    strftime('%Y', 'now') - strftime('%Y', '1809-02-12'),
    strftime('%m', 'now') - strftime('%m', '1809-02-12'),
    strftime('%d', 'now') - strftime('%d', '1809-02-12'),
    strftime('%H:%M:%f', 'now')
  ) AS timediff_result;

注：这种方式需要额外处理跨月/跨年的边界情况，比如2024-01-01与2023-12-31的差值应为1天，而非0年0月1天。

方式2：给FireDAC注册自定义timediff函数 #

在Delphi代码中，通过FireDAC的SQLite连接注册自定义函数，模拟HeidiSQL的timediff逻辑。示例代码：

procedure TYourForm.FDConnection1BeforeConnect(Sender: TObject);
begin
  // 连接前注册自定义timediff函数
  FDConnection1.ExecSQL(
    'CREATE FUNCTION timediff(date1 TEXT, date2 TEXT) RETURNS TEXT ' +
    'BEGIN ' +
    '  DECLARE diff_days REAL; ' +
    '  SET diff_days = julianday(date1) - julianday(date2); ' +
    '  RETURN printf(''+%04d-%02d-%02d %s'', ' +
    '    CAST(diff_days / 365.25 AS INTEGER), ' +
    '    CAST((diff_days %% 365.25) / 30.4375 AS INTEGER), ' +
    '    CAST((diff_days %% 30.4375) AS INTEGER), ' +
    '    strftime(''%H:%M:%f'', date1) ' +
    '  ); ' +
    'END;'
  );
end;

注册完成后，即可在TFDQuery中直接使用SELECT timediff('now','1809-02-12');语句。

内容的提问来源于stack exchange，提问作者Alister