Descobrir data e hora

Question

Pessoal, gostaria de uma ajuda.Tentei pegar a data e hora do sistema operacional com Delphi e foi tranquilo, mas se ela estiver errada? Tem como eu pegar a data e hora do meu banco de dados?Obrigad...

Cesar Roniglei · Answer

Boa tarde,Voc� pode gerar um script para que o delphi retorne a data do seu servidor utilizando uma Query.Ex. SQL Server:C�sar Roniglei...

Antonio Jesus · Answer

Ol� boa noite!Veja esta fun��o.Function Data_Servidor():TdateTime;VAR  Sqlx: TSQLQuery;     Msg, Dtax : String;Begin     Try        Sqlx := TSQLQuery.Create(Nil);        Sqlx.SQLConnection:= DMCN.SQLConnect;        WITH Sqlx Do Begin           Close;           SQL.Clear;           SQL.Add(select Current_Time, Current_Date from RDB$Database);           Open;           IF FieldByName(Current_Date).AsDateTime  0 Then              Result := FieldByName(Current_Date).AsDateTime;           Dtax := DateToStr(FieldByName(Current_Date).AsDateTime);           IF FieldByName(Current_Date).AsDateTime  Date Then Begin              Msg := ATEN��O!+#13+A Data e Hora do Computador Local est� diferente do Computador Servidor+#13+Favor acertar a data dos dois Computadores.;              Application.MessageBox(Pchar(Msg),Aviso,MB_Ok+mb_IconInformation);           End;        End;     Finally        Sqlx.close;        FreeAndNil(Sqlx);     End;End;...

Carla Batista · Answer

Ol� Cesar, fiquei na d�vida de como implementar, poderia me explicar melhor?N�o entendi, usar query?Obrigada...

Carla Batista · Answer

Ol� Antonio, tentei implementar aqui, mas esta dando erro. O c�digo esta certo?Obrigada!...

Marco Salles · Answer

Carlinha o forum n�o esta perfeitamente formatado. Assim muitas intru��es corretas ficam erradas
Por exemplo , infelismente come as aspas simples
Coloque o erro que esta dando assim o amigo pode lhe ahujar melhor

Carla Batista · Answer

Ol� Marco, com a sua explica��o eu entendi.Faltavam as *aspas* mesmo!Obrigada meninos!...

F�rum Descobrir data e hora #421020