SQLite 中日期型数据定义及处理（Delphi 版本）

sensor_WU2025-04-10 13:15

在使用SQLite的时候，肯定需要使用到日期型数据类型，但是SQLite没有直接支持日期类型，比如在其他数据库中支持的DateTime类型，在Delphi中是TDateTime类型。

那么实际处理中应该如何处理呢？

可以使用两种方式类在SQLite中表示日期类型：

第一种，将字段类型定义成整形（Integer），那么在Delphi中就使用Unix日期类型，写入数据的时候使用DateTimeToUnix函数将Delphi的TDatetime转换成整形，然后写入数据库，读出整形数字后使用UnixToDateTime函数将读出的整形转换成TDateTime类型即可。缺点是没有包含毫秒数据。

第二种，将字段类型定义成浮点（real），那么在Delphi中就可以直接使用TDateTime日期类型写入数据。但是读出时需要定义成Float类型,而不是使用DateTime类型。包含毫秒

举例如下：

Delphi 复制代码

var
  SQL : string;
  Q   : TFDQuery;

  D : Int64;
  T : TDateTime;
begin
   SQL := 'SELECT * FROM Table_language WHERE cn = "AAAAA"';
   Q := TFDQuery.Create(nil);
   Q.SQL.Text := SQL;
   Q.Connection := FDConnection;
   Q.Open;
   //D1是整形 
   D := Q.FieldByName('D1').AsInteger;
   T := UnixToDateTime(D);
   SQL := FormatDateTime('YYYY-MM-DD hh:mm:ss zzz',T);
   //写入
   Q.FieldByName('D1') := DateTimeToUnix(Now);

   //D2是Real
   T := Q.FieldByName('D2').AsFloat;  //不能用 AsTDateTime
   SQL := FormatDateTime('YYYY-MM-DD hh:mm:ss zzz',T);
   //写入
   Q.FieldByName('D2') := Now;
end;