diff --git a/StdFuncs.pas b/StdFuncs.pas index 5ea8cad..e558f54 100644 --- a/StdFuncs.pas +++ b/StdFuncs.pas @@ -454,6 +454,7 @@ function StringIsDateTimeDefValue(const s:string):boolean; 'N': Result:=(s='NULL') or (s='NOW'); 'T': Result:=(s='TODAY') or (s='TOMORROW'); 'Y': Result:=(s='YESTERDAY'); + 'L': Result:=(s='LOCALTIME') or (s='LOCALTIMESTAMP') end; end; diff --git a/pFIBDataSet.pas b/pFIBDataSet.pas index 0104f95..a4d10dc 100644 --- a/pFIBDataSet.pas +++ b/pFIBDataSet.pas @@ -1307,7 +1307,7 @@ procedure TpFIBDataSet.DoOnNewRecord; if de <> 'NULL' then if Fields[i] is TDateTimeField then begin - if StringInArray(de, ['NOW','CURRENT_TIME','CURRENT_TIMESTAMP']) then + if StringInArray(de, ['NOW','CURRENT_TIME','CURRENT_TIMESTAMP','LOCALTIME','LOCALTIMESTAMP']) then asDateTime := Now - vDifferenceTime else if StringInArray(de, ['TODAY', 'CURRENT_DATE']) then