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
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 outro
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 functio
Faça a conversão de string para time.
Tempo := Now + StrToTime('02:03:25');
2009/4/2 Roberto
> 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:2
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: TDate
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
ho
6 matches
Mail list logo
