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 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
From: wa...@oi.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]
