Re: [delphi-br] Somar horas, minutos e segundos em now()
Uma idéia para trabalhar: SELECT tbwt1.WTKey, SUM(TIME_TO_SEC(TIMEDIFF(tbwt1.WTEndTime, tbwt1.WTStartTime))) AS Totalsegundos, SEC_TO_TIME(SUM(TIME_TO_SEC(TIMEDIFF(tbwt1.WTEndTime, tbwt1.WTStartTime AS TempoTotal FROM tbwt1 REduzindo a segundos para operar e depois voltando ao formato de tempo []s Edison - Original Message - From: Roberto wa...@oi.com.br To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 02, 2009 3:33 PM 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Somar horas, minutos e segundos em now()
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 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]
RE: [delphi-br] Somar horas, minutos e segundos em now()
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]
Re: [delphi-br] Somar horas, minutos e segundos em now()
Faça a conversão de string para time.
Tempo := Now + StrToTime('02:03:25');
2009/4/2 Roberto wa...@oi.com.br
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]
Re: [delphi-br] Somar horas, minutos e segundos em now()
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.. kk 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]
Re: [delphi-br] Somar horas, minutos e segundos em now()
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]
