Publicado em 10 de jan.

Relatório de horas

Galera,

Tenho que fazer um relatório de quanto tempo a ordem de serviço X demorou para ser implementada a atualização. Tenho uma procedure que me retorna quantos dias/horas/minutos em determinado status. Esses dados retornam inteiros. Preciso achar alguma maneira de concatenar os dados e deixar de forma numérica, que, caso algum momento fosse necessário somar, esteja disponível.

Alguém que já passou por algo parecido possa me ajudar?

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Almir_Santos· 10 de jan.

Sou usuário de Object Pascal com a IDE Lazarus.Fiz uma solução de contagem do tempo desta forma:

{
Yehovah é o Nome do Santo
Função para medir tempos em processos com precisão de 1 milisegundo
Criação:02/12/2016
Autor:Almir Bispo
Ribeirão das Neves
}

function milisegundo(tempo_inicio:Ttime):string;
var meut:Ttimestamp;

begin

meut:=DateTimeToTimeStamp(now - tempo_inicio);
result:= copy(Variant(TimeStampToMSecs( Ttimestamp(meut) ) *10), length(Variant(TimeStampToMSecs( Ttimestamp(meut) )*10 ) )-4 ,4) ;
end;
 //eu uso assim
 procedure conta;
 var t:Ttime;
 begin
 T:=Ttime(now);//inicio da contagem
 {processamento}
 showmessage(milisegundo(T));
end;

//Você pode fazer calculos de soma,subtração de variáveis tipo Tdatetime

Luiz Felipe Heemann· 11 de jan.

Alterei o retorno da minha procedure, ela retorna tempo_ms(milissegundos) porém agora preciso formatar para exibir o texto na grid formatado em horas ou contador de dias. Ex: 01D 23H 32M ou 47H 32M