Francival,
Boa tarde!
Infelizmente ainda não testei a macro que criaste,
pois no momento estou na Universidade onde faço bolsa
de pesquisa e os laboratórios aqui não tem entrada
para Pen Drive, são apenas os monitores ligados a TS´s
Win 2003. Mas assim que chegar em casa testarei e lhe
darei o retorno da função. Aqui sinceramente não
apareceu nada em azul, mas devo copiar a partir do
nome da função (Function Horas_to_Dias ...) certo?
Apenas a título de curiosidade, necessitava desta
solução porque estou construindo uma planilha de
cálculo do tempo de viagem de um caminhão entre duas
cidades do país, por isso necessitava que ele
convertesse em dias. Sou acadêmico de Logística, e
tenho grande interesse pela área de transportes, por
isso estou criando planilhas focadas nesta área, mas
que podem ser convertidas para gestão de diversas
empresas, já que uso alguns modelos contábeis.
Muito, mas muito obrigado mesmo pela ajuda, essa sua
macro me ajudará muito. E parabéns pela iniciativa de
não medir esforços para ajudar que outras pessoas
possam também trabalhar e difundir o BR/OOo em seu
meio de trabalho. É o que eu vou fazer agora, meu
colega só usa Excel, vou aproveitar essa macro pra
converter ele, tirar ele dessa vida de M$.
--- Francival Rodrigues de Lima
<[EMAIL PROTECTED]> 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.
>
> Inté +
>
> Francival Lima
> GuBro-PA
>
>
> copia o código em azul nesse e-mail para o editor de
===
Hélio Manoel Corrêa Filho
Membro do Gubro-SC
gTalk: [EMAIL PROTECTED]
SIM Software Livre, NÃO monopólio M$ e Pirataria
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
