pega hora do sistema

Question

como eu posso pegar a hora do sistema para registrar o momento que o usuario fez alguma altera��o????

MAIS LEMBRANDO QUE CADA USUARIO PODE ESTAR COM SEU COMPUTADOR COM HORA DIFERENTE... OU SEJA DEVERIA SER PEGO A HORA DO SERVIDOR...
COMO FAZER?

Fabio.hc · Answer

[quote:323eec5bb2=�Nigro�]Por SQL:SELECT CURRENT_DATE AS dt_servidor FROM RDB$DATABASESELECT CURRENT_TIME AS hora_servidor FROM RDB$DATABASEPor DOS:WinExec(PChar(�Net Time �+Edit1.Text+� /Set /Y�),SW_Normal);Sendo Edit1.Text o nome do servidor. Aquele nome que aparece no ambiente de rede.[/quote:323eec5bb2]...

Drogao · Answer

Como fa�o para pegar automaticamente o nome do servidor em que est� o banco de dados acessado para que assim execute a linha de comando sugerido sem ter que me preocupar em informar o nome do servidor.

Nigro · Answer

WinExec(PChar(�Net Time �+Edit1.Text+� /Set /Y�),SW_Normal); Sendo Edit1.Text o nome do servidor. Aquele nome que aparece no ambiente de rede....

Nigro · Answer

Utilize os componentes Server Socket e ClientSocket, mas nesse caso voc� vai ter que ter um execut�vel cliente em cada esta��o....

Gleiston · Answer

Nigro, estou iniciando na �rea, teria como voc� me dizer onde insiro o c�digo do DOS e como utilizar esses componentes Server Socket e ClientSocket.Obrigado....

Nigro · Answer

Entre no f�rum SGLH (Sistema de gerenciamento de lan house), l� tem links para voc� pegar um fonte remela que eu fiz...

Gleiston · Answer

cara me desculpe pela ignor�ncia, mas n�o consegui encontrar, pode me ajudar....

Luiz.claudio.vieira · Answer

Fabio.HC desculpa continuar na pergunta, mas nao sei como usar o seu codigo, bem vamos l�:

Digamos que eu tenho a seguinte tabela:
CREATE TABLE TEMPO
(
Diferenciador Integer NOT NULL,
Data Date,
Hora Time,

PRIMARY KEY (Diferenciador)
);
Como pego a data e hora do servidor atrav�s do seu codigo? Estou usando FB 1.5 e Delphi 6.

Atenciosamente!

Fabio.hc · Answer

Vc N�o precisa criar tabela para pegar a data e a hora do servidor.

�Os operadores funcionais CURRENT_DATE, CURRENT_TIME e CURRENT_TIMESTAMP retornam valores de data e tempo coerentes com as configura��es atuais do sistema operacional�

Exemplo:

- Para pegar a data e a hora do servidor, coloque uma query e a seguinte instru��o SQL:

[b:980ff90dac]SELECT CURRENT_DATE as Data, CURRENT_TIME as Hora, CURRENT_TIMESTAMP as DataHora FROM RDB$DATABASE[/b:980ff90dac]

Obs. Neste exemplo foi usado a tabela RDB$DATABASE, mas vc pode usar qualquer tabela do BD.

- Para pegar a data e a hora do servidor e atualizar a esta��o:

procedure TForm1.AtualizarDataHora;
var
   SystemTime : TSystemTime;
begin
   with qryDataHora do
      begin
      Close;
      SQL.Text:=�SELECT CURRENT_TIMESTAMP as DataHora FROM RDB$DATABASE�;
      Open;
      end;

   With SystemTime do
      DecodeDateTime(qryDataHora.Fieldbyname(�DataHora�).AsDateTime, wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds);

   //Colocar a data e hora do sistema
   SetLocalTime(SystemTime);
end;

F�rum pega hora do sistema #205618