Ajudinha com Hora!!
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
Curtidas 0
Respostas
Guilherme
02/03/2005
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
GOSTEI 0
Repa
02/03/2005
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.
GOSTEI 0
Titanius
02/03/2005
Obrigado
[]s
[]s
GOSTEI 0