Neste artigo, criaremos uma macro para formatar a hora no formato hh: mm.sss.
Os dados brutos para este exemplo consistem em certos valores de tempo na coluna E.
Neste artigo, criamos uma função definida pelo usuário (ou função personalizada) “HHMMSSSFormat”. Esta função usa o tipo de data como entrada e retorna a saída em tipo de dados de string no formato hh: mm.sss.
Explicação lógica
Na função “HHMMSSSFormat” para converter 60 segundos em um número de três dígitos, dividimos os segundos no valor de tempo definido por 60 para obter a fração de segundos definidos e, em seguida, multiplicamos por mil para obter o número de três dígitos.
A função “HHMMSSSFormat” pode ser usada chamando diretamente na planilha do Excel ou usando a função dentro de outro procedimento (ou macro).
A imagem abaixo mostra como usamos a função “HHMMSSSFormat” na planilha do Excel para derivar a hora no formato hh: mm.sss.
Também criamos uma macro “GettingCurrentTimeinHHMMSSSFormat” que usa a função “HHMMSSSFormat” para exibir a hora atual no formato hh: mm.sss em uma caixa de mensagem. A imagem abaixo mostra a saída quando executamos esta macro às 3: 54: 30s.
Siga abaixo para o código
Função Explícita da Opção HHMMSSSFormat (DateTime As Date) As String 'A função retornará o valor da string' Declarando a variável inteira Dim SecondValue As Integer 'Extraindo segundos do parâmetro DateTime SecondValue = Second (DateTime)' Convertendo o valor dos segundos para um número de três dígitos SecondValue = (SecondValue / 60) * 1000 'Altere a formatação da hora no formato necessário HHMMSSSFormat = Format (Hour (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") End Function Sub GettingCurrentTimeinHHMMSSSFormat () 'Declarando a variável de string Dim CurrentTime As String' Chamando a função personalizada HHMMSSSFormat CurrentTime = HHMMSSSFormat (Now) 'Exibindo a caixa de mensagem apenas com o botão Ok MsgBox CurrentTime, vbOKOnly, " "End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail