Como obter a data do servidor pelo interbase/firebird
{ Quem já trabalhou ou trabalha desenvolvendo sistemas em rede sabe a dor de cabeça que dá obter a data atual do PC que executa o sistema. Para evitar problemas de data atrasada o melhor a fazer é obter a data atual do servidor. Logo abaixo explico como:
No formulário principal coloque um componente IBQuery e conecte ao BD e ao IBTransaction. No evento onCreate do Formulário principal digite :
} procedure TForm1.FormCreate(Sender: TObject); begin
IBQuery1.Close;
IBQuery1.SQL.Text := 'SELECT CAST (''NOW'' AS TIMESTAMP) as DATA FROM RDB$DATABASE';
IBQuery1.Open;
Label1.Caption := IBQuery1.fieldbyname('DATA').AsString; end; { Pronto! Esta query pega a data do servidor, portanto, tome o cuidado de manter a data do servidor sempre atualizada, depois é só jogar a data nu banco ou num label como eu fiz.
}
