Data E Hora (Resolvido)

[nightmare]

estou precisando de uma rotina que ao clicar em um botão, o mesmo salve a data e hora atual no banco de dados

será que alguém pode me ajudar?????

[Guest Jorge Andrade]

Passos para sua questão:

1. Crie um botão;

2. No evento Onclick do botão insira o seguinte codigo:

procedure SeuForm.SeuBotaoClick(Sender : Object);

Var DataAtual : TDateTime;

HoraAtual : TDateTime;

begin

DataAtual := GetLocalDate(Now);

HoraAtual := GetLocalTime(Now);

SuaTabela.Edit;

SuaTabelaDATAATUAL.Value := DataAtual;

SuatabelaHORAATUAL.Valur := HoraAtual;

SuaTabela.post;

end;

Boa sorte !

[Tbaiano]

A função do Jorge está perfeita só que no Delphi 7 (no meu pelo menos) não reconhece a função :

DataAtual := GetLocalDate(Now);

HoraAtual := GetLocalTime(Now);

Então se não funciponar no seu tb pode fazer uma pequena mudança.

Var   DataAtual : TDate;
        HoraAtual : TDateTime;
begin
  DataAtual := Date;
  HoraAtual := Time;
  SuaTabela.Edit;
  SuaTabelaDATAATUAL.Value := DataAtual;
  SuatabelaHORAATUAL.Valur := HoraAtual;
  SuaTabela.post;
End;

Valeu.

Tbaiano

[nightmare]

Consegui resolver o problema da seguinte forma:

No evento onclick do botão

  Tabela.Edit;

  TabelaCampo.Value := DateToStr(Now) + ' - ' + TimeToStr(Now);

  Tabela.post;

Valeu pela ajuda galera...