Somar hora com mimutos e obter a nova hora

10/12/2003

1

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...


Responder

Posts

10/12/2003

Motta

procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:tdatetime;
begin
t1 :=now;
t2 := (t1 + ((45/60)/24));
showmessage(datetimetostr(t1)+ ´ ´ + datetimetostr(t2));
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira