Osvaldo,
Excelente solução. Muito mais simples que a minha. Parabéns!
Inté +.
Francival Lima
GuBro-Pa
Em 19/02/08, Osvaldo Rosario Kussama <[EMAIL PROTECTED]>
escreveu:
>
> Francival Rodrigues de Lima escreveu:
> > Hélio, Pesquisei,
> > Só consegui fazer o tempo aparecer do jeito que queres através de uma
> > função que criei. Abaixo segue o código dela:
> >
> > Function Horas_To_Dias(tempo_em_horas)
> > 'Função que calcula tempo acumulado no formato DD HH:MM:SS (dias
> > Horas:Minutos:Segundos)
> > 'Versão 0.1
> > 'O parâmetro da função é um número que representa um horário no formato
> > interno do BrOffice.
> > 'O retorno da função é uma String que representa o tempo acumulado no
> > formato DD HH:MM:SS
> > 'Exemplos:
> > ' 25:59:59 será mostrado como 1d 01:59:59.
> > ' 23:58:00 será mostrado como 0d 23:58:00.
> > 'Autor: Francival Lima. Em 17/02/2008.
> >
> > strDias = str(int(tempo_em_horas)) 'A parte inteira do número representa
> os
> > dias completos do horário.
> > strHoras = Right(Cstr(100+hour(tempo_em_horas)),2) 'Somar com 100,
> coverter
> > para string e depois retirar apenas os dois últimos dígitos dessa
> string.
> > Garante que a saída seja sempre em dois dígitos mesmo quando a hora for
> > Zero. string
> > strMinutos = Right(Cstr(100+minute(tempo_em_horas)),2)
> > strSegundos = Right(Cstr(100+second(tempo_em_horas)),2)
> > StrSaida = strDias & "d " & strHoras & ":" & strMinutos & ":" &
> strSegundos
> > 'Formata a string de saída
> >
> > Horas_To_Dias = StrSaida
> >
> > End Function
> >
> > Para que ela funcione no teu BrOffice. Basta fazer o seguinte:
> > Abre o arquivo que queres trabalhar com o tempo nesse formato.
> > Aciona Ferramentas>>Macros>>Organizar Macros>>BrOffice.org Basic...
> > Funções definidas pelo usuário No campo "Macro de", selecione "(Nome
> do
> > Teu documento do Calc)">> Standard >> Móulo1. Clique em "Novo". Depois
> em
> > "ok". Vai abrir a janela do BrOffice.org Basic.
> > Cola o código (texto em azul) da macro daqui do e-mail para a janela
> do
> > BrOffice.org Basic. Clique em "Salvar".
> > Volta para o arquivo no Calc, basta chamar essa função como outra
> > qualquer do BrOffice.Exemplo: =HORAS_TO_DIAS(A1).
> > Detalhe: a função só vai funcionar nesse arquivo.
> >
>
>
> Além da solução apresentada por Francival também é possível
> alcançar o resultado desejado utilizando:
>
> =CONCATENAR(INT(A1);"d ";TEXTO(A1-INT(A1);"HH:MM:SS"))
>
> onde A1 é a célula que contém o tempo.
> Por ex.
> 67:45:25 ==> 2d 19:45:25
>
> Osvaldo
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
