如何比较Firebird TimeStamp和 Delphi DateTime？

z4bn682m 于 2023-06-22 发布在其他

关注(0)|答案(3)|浏览(87)

我有下面的脚本，从来没有检索任何数据，因为在火鸟/Interbase的TimeStamp数据类型不是DateTime（*）
我该怎么解决？？TX。

with DMApp.qryValidPeriod_ do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select P.* from PERIOD P, FISCAL_YR F');    
    SQL.Add('where');
    SQL.Add('P.FISCAL_YR_ID = F.FISCAL_YR_ID and');     
    SQL.Add('F.ENTITY_DB_ID = :PRIMARY_DB_ID and');     
    SQL.Add('F.FISCAL_YR_ID = :CURR_FY_ID and');        
    SQL.Add(':pTranDate BETWEEN P.BEG_PERIOD and P.END_PERIOD');

    ParamByName('pTranDate').AsDateTime :=  sBATCH_DATE;

// BEG_PERIOD和END_PERIOD是TimeStamp数据类型，例如'2010-11-09 12：00' //参数返回数据类型，例如'2010-11-09'
（*）时间戳是Firebird/Interbase/SQL Server中可用的列数据类型。这有助于确保数据完整性。每次插入或更新包含时间戳列的行时，时间戳都会自动更新。timestamp列中的值不是datetime数据，而是binary（8）varbinary（8）数据。timestamp数据类型与系统时间无关，它只是一个单调递增的计数器，其值在数据库中始终是唯一的（使其基本上是唯一的随机数）。

delphi

来源：https://stackoverflow.com/questions/4151527/how-to-compare-firebird-timestamp-and-delphi-datetime

3条答案

按热度按时间

esbemjvw1#

你是不是误解了Firebird中的TIMESTAMP数据类型？在SQL 92中，TIMESTAMP是一种标准数据类型，用于保存日期和时间值。它不会自动更新，并且返回TIMESTAMP值的函数与数据库时间相关。
FirebirdTIMESTAMP实现遵循SQL 92规则，它应该可以完美地使用 Delphi .AsDateTime参数。
它是SQL Server TIMESTAMP，正如您所描述的那样-并且永远不应与日期和时间进行比较，“SQL Server timestamp数据类型与时间或日期无关”http://msdn.microsoft.com/en-us/library/ms191240(SQL.90).aspx

赞(0）回复(0）举报 2023-06-22

6yjfywim2#

一个用 Delphi 写的UDF。它获取日期的三个部分，并以Firebird格式返回日期值。也许这将帮助您了解如何在 Delphi 和FB之间转换日期。

type
  PIBDateTime = ^TIBDateTime;
  TIBDateTime = record
    Days,                           // Date: Days since 17 November 1858
    MSec10 : Integer;               // Time: Millisecond * 10 since midnigth
  end;

const                               // Date translation constants
  MSecsPerDay10 = MSecsPerDay * 10; // Milliseconds per day * 10
  IBDateDelta = 15018;              // Days between Delphi and InterBase dates

// ==============================================
//  declare external function ...
//    smallint, smallint, smallint, date
//  returns
//    date
//  ...
// ==============================================

function g_d_encodedate(var Year, Month, Day: SmallInt;
  var IBDateTime: TIBDateTime): PIBDateTime; cdecl; export;
var
  DateTime: TDateTime;
  DelphiDays : Integer;
begin
  DateTime := EncodeDate(Year, Month, Day);
  DelphiDays := Trunc(DateTime);
  with IBDateTime do begin
    Days := DelphiDays + IBDateDelta;
    MSec10 := Trunc((DateTime - DelphiDays) * MSecsPerDay10);
  end;
  Result := @IBDateTime;
end;

赞(0）回复(0）举报 2023-06-22

gywdnpxw3#

通常，我使用它作为字符串参数，因为时间部分。想法是设置独立格式，例如“11-NOV-2010 12：32：25”
例如，您可以尝试

ParamByName('pTranDate').AsString :=  FormatSQLDateTime(sBATCH_DATE);

你应该有类似的功能

function FormatSQLDate(date: TDate) : string;
const months : array[1..12] of string[3] =
('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
 var d, y : integer;
     m : string[3];
begin
   d := DayOf(date);
   y := YearOf(date);
   m := months[MonthOf(date)];
   Result := Format('%d-%s-%d', [d, m, y]);
end;

function FormatSQLDateTime(date : TDateTime) : String;
var
  d : String;
  h, m, s : Integer;
begin
  d := SQLDate(date);
  h := HourOf(date);
  m := MinuteOf(date);
  s := SecondOf(date);
  Result := d + Format(' %d:%d:%d', [h, m, s]);
end;

请注意，您还可以在服务器端使用SQLExtract进行一些工作

extract(day from timestamp_field)

参见EXTRACT的文档。

赞(0）回复(0）举报 2023-06-22

我来回答

如何比较Firebird TimeStamp和 Delphi DateTime？

3条答案

相关问题

热门标签

最新问答