Fórum Ajudinha com Hora!! #270689
02/03/2005
0
Pessoal eh o seguinte!
Tenho um programa que roda em varias maquinas, e tenho um servidor que funciona com FireBird... pois bem... o meu ´problema´ eh que o sistema não pode ter a data nem a hora modificada, então pensei no seguinte!
Quando iniciar, pego a data e hora do servidor (banco de dados), e gravo numa variavel, e na questao da hora, uso um TTimer, para ir incrementando os segundos, minutos e horas...
Pois bem, consegui pegar a data e hora do servidor, porem não sei como apatir de uma variavel Time, incrementar os segundos...
como faço isso com o Timer?
[]s
Tenho um programa que roda em varias maquinas, e tenho um servidor que funciona com FireBird... pois bem... o meu ´problema´ eh que o sistema não pode ter a data nem a hora modificada, então pensei no seguinte!
Quando iniciar, pego a data e hora do servidor (banco de dados), e gravo numa variavel, e na questao da hora, uso um TTimer, para ir incrementando os segundos, minutos e horas...
Pois bem, consegui pegar a data e hora do servidor, porem não sei como apatir de uma variavel Time, incrementar os segundos...
como faço isso com o Timer?
[]s
Titanius
Curtir tópico
+ 0
Responder
Posts
02/03/2005
Guilherme
nao intendi direito mas ce vc fazer assim sai os HH:MM:SS
procedure TForm1.Timer1Timer(Sender: TObject);
var hora : ttime;
begin
hora:= Time;
Form1.Caption:= TimeToStr(hora);
end;
nao sei se é isso q precisa pois nao intendi sua questao
procedure TForm1.Timer1Timer(Sender: TObject);
var hora : ttime;
begin
hora:= Time;
Form1.Caption:= TimeToStr(hora);
end;
nao sei se é isso q precisa pois nao intendi sua questao
Responder
Gostei + 0
02/03/2005
Repa
Pois bem, consegui pegar a data e hora do servidor, porem não sei como apatir de uma variavel Time, incrementar os segundos...
como faço isso com o Timer?
[]s
Função IncSecond.
Responder
Gostei + 0
02/03/2005
Titanius
Obrigado
[]s
[]s
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)