Somar hora com mimutos e obter a nova hora
Estou fazendo um sistema e nele tera uma rotina que para cada cliente que for cadastrado, o sistema de 45 mim em 45 mim mandar uma mensagem para o usuario cobrando alguma coisa do cliente cadastrado.
Estou usando o componente Timer, so que no evento tenho que fazer os calculos para ver se ja passaram 45 mim para cada cliente cadastrado. Gostaria de saber como eu faco para somar de uma hora 45 mim e depois ver o resultado.
O campo e do tipo DataTime... desse tenho que tirar a hora e somar os 45 mim...
Estou usando o componente Timer, so que no evento tenho que fazer os calculos para ver se ja passaram 45 mim para cada cliente cadastrado. Gostaria de saber como eu faco para somar de uma hora 45 mim e depois ver o resultado.
O campo e do tipo DataTime... desse tenho que tirar a hora e somar os 45 mim...
Vi
Curtidas 0
Respostas
Motta
10/12/2003
procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:tdatetime;
begin
t1 :=now;
t2 := (t1 + ((45/60)/24));
showmessage(datetimetostr(t1)+ ´ ´ + datetimetostr(t2));
end;
var t1,t2:tdatetime;
begin
t1 :=now;
t2 := (t1 + ((45/60)/24));
showmessage(datetimetostr(t1)+ ´ ´ + datetimetostr(t2));
end;
GOSTEI 0