Fórum Data e Hora do Servidor #43967

é um pouco estranho porém pode ter outras formas.

select
cast(´today´ as date) HOJE,
cast(´yesterday´ as date) ONTEM,
cast(´tomorrow´ as date) AMANHA,
cast(´now´ as time) HORA,
current_timestamp DATA_HORA
from rdb$database

A partir do Interbase 6.0 (ou Firebird 1.0) vc tem as novas variáveis::

select
current_date HOJE,
current_date-1 ONTEM,
current_date+1 AMANHA,
current_time HORA,
current_timestamp DATA_HORA
from rdb$database;



T+

Aí vai uma funcao pronta para ajusta a data e a hora do servidor nas maquinas q executarem o programa:

PROCEDURE AJUSTADATAHORA;
VAR SYSTEMTIME : TSYSTEMTIME;
BEGIN
IMDMF.QR_GERAL.SQL.CLEAR;
IMDMF.QR_GERAL.SQL.ADD(´SELECT CURRENT_DATE DATA, CURRENT_TIME HORA FROM RDB$DATABASE´);
IMDMF.QR_GERAL.OPEN;
WITH SYSTEMTIME DO
BEGIN
//DEFININDO O DIA DO SISTEMA
WYEAR:=YEAROF(IMDMF.QR_GERAL.FIELDVALUES[´DATA´]);
WMONTH:=MONTHOF(IMDMF.QR_GERAL.FIELDVALUES[´DATA´]);
WDAY:=DAYOF(IMDMF.QR_GERAL.FIELDVALUES[´DATA´]);
//DEFININDO A HORA DO SISTEMA
WHOUR:=HOUROF(IMDMF.QR_GERAL.FIELDVALUES[´HORA´]);
WMINUTE:=MINUTEOF(IMDMF.QR_GERAL.FIELDVALUES[´HORA´]);
WSECOND:=SECONDOF(IMDMF.QR_GERAL.FIELDVALUES[´HORA´]);
END;
//COLOCAR A HORA E DATA DO SISTEMA
SETLOCALTIME(SYSTEMTIME);
IMDMF.QR_GERAL.CLOSE;
END;

Substitua o imdmf.qr_geral pela sua query....


Falow !!!