Marcos, Rafael e Luiz, Acabou a minha preguiça e com as preciosas informações que me ofertaram, vou me aplicar a partir deste momento e solucionarei o problema com certeza.
Grade abraço amigos... Sorte e saúde. Roberto (RJ) //////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////// Roberto, Criei duas funções, uma que transforma horas para segundos, faço as contas e depois transformo os segundos para horas. Não sei o que acontece se der mais do que 24 horas, mas é só uma questão de melhorar as funções. function TimeToSec(tempo: String): String; var Present: TDateTime; Hour, Min, Sec, MSec: Word; begin tempo := Trim(AnsiReplaceStr(tempo,'.',',')); if tempo <> '' then begin Present := StrToDateTime(tempo); DecodeTime(Present, Hour, Min, Sec, MSec); Result := FloatToStr((Hour*3600)+(Min*60)+(Sec)+(MSec/1000)); end else Result := '0'; end; function SecToTime(tempo: String): String; var Present: TDateTime; begin if tempo <> '' then Result := EncodeTime(Hour, Min, Sec, MSec) else Result := '000:00:00'; end; Att, Marcos A. Ferreira São Paulo - BrasilMSN: maferre...@hotmail.itgoogle <mailto:maferreira%40hotmail.itGoogle> Talk: maf.decisiva Skype: m_abreuferreira Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o email e em seguida, apague-o. Agradecemos sua cooperação. This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose or take any action based on this message or any information herein. If you have received this message in error, please, advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> From: wa...@oi.com.br <mailto:wazen%40oi.com.br> Date: Thu, 2 Apr 2009 15:33:06 -0300 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] __________________________________________________________ News, entertainment and everything you care about at Live.com. Get it now! http://www.live.com/getstarted.aspx [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
