Data do servidor interbase, capturando a

{*****
* Retorna a data do servidor INTERBASE
* (Válido somente para INTERBASE)
*
* Autor: Jociel Eloy de Almeida
*
*}
FUNCTION DateOfServer(DataBaseName: String): TDateTime;
var
QryTmp: TQuery;
begin
QryTmp := TQuery.Create(nil);
with QryTmp do begin
DatabaseName := DataBaseName;
SQL.Text := 'SELECT CURRENT_DATE FROM RDB$DATABASE';
try
Open;
Result := FieldByName('CURRENT_DATE').AsDateTime;
except
Result := Date;
end;
end;
end;