Inclua a unit DateUtils no seu programa e use os métodos: IncMinute() IncSecond()
Ex: DataAtual := Now; IncMinute(DataAtual,3); IncSecond(DataAtual,25); Para incrementar uma data, use valores positivos. Para decrementar, use valores negativos. Fácil assim! Aproveite e dê uma olhada em outros métodos disponíveis nessa Unit. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft ----- Original Message ----- From: Roberto To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 02, 2009 3:52 PM Subject: RES: [delphi-br] Somar horas, minutos e segundos em now() Luiz, obrigado, somente to necessitando somar, é para um temporizador do tipo rele assim Ligar rele as 22:53 durante 1h23m transcorrido este tempo desliga rele, Acontece que já fiz isto trezentas vezes, mais hoje to cum branco na memória e se me permite a franqueza um pouco de preguiça. Pode? Roberto Se não me engano tem uma função pra isso, mas não lembro, mas na pior das hipóteses, transforma tudo em segundos soma e volta pra hh:mm:ss Lembre-se se passar de 23:59:59, deve-se voltar para 00:xx:xx e aumentar +1 na data, no caso de estar trabalhando com data também... ou manter o valor de horas mesmo tipo "50h23m44s" ou "2 dias 02h23m44s" ai vai depender da necessidade... []s Luiz Escobar From: Roberto Sent: Thursday, April 02, 2009 3:33 PM To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.35/2033 - Release Date: 03/31/09 13:05:00 ---------- ---------- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.35/2033 - Release Date: 03/31/09 13:05:00 [As partes desta mensagem que não continham texto foram removidas]
