Ta certo... mas vo te ajudar afinal amigo é pra essas coisas.... 10 segundos no help do Delphi 6-PRO.... veja as funções que acho que vai funfa pra vc...
IncAMonth procedure Increments date data by one month. IncDay function Returns a date shifted by a specified number of days. IncHour function Returns a date/time value shifted by a specified number of hours. IncMilliSecond function Returns a date/time value shifted by a specified number of milliseconds. IncMinute function Returns a date/time value shifted by a specified number of minutes. IncMonth function Returns a date shifted by a specified number of months. IncSecond function Returns a date/time value shifted by a specified number of seconds. IncWeek function Returns a date shifted by a specified number of weeks. IncYear function Returns a date shifted by a specified number of years. []s Luiz Escobar PS: depois da segunda veze ja bate a preguiça.. kkkkkkkkkk From: Roberto Sent: Thursday, April 02, 2009 3:52 PM To: delphi-br@yahoogrupos.com.br 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] [As partes desta mensagem que não continham texto foram removidas]
