Excel & Access

Excel – Convertendo segundos em minutos e horas

28K views
8 Comentários
4.6
(10)

Alguns sistemas retornam a consulta de horas totalizando os segundos. Se você assim como nós já precisou converter segundos, em horas e minutos vai gostar desta dica, pois neste artigo abordaremos de forma clara e objetiva, a fórmula para converter segundos em minutos e horas, com o Microsoft Excel
Para os usuários do Excel, segue a formula que poderá economizar horas de trabalho.

Fomula

=TEMPO(INT(A1/3600);MOD(INT(A1/60);60);MOD(A1;60))
Abaixo um exemplo de como ficará a planilha:

Valor em segundos Valor convertido
1 00:00:01
60 00:01:00
61 00:01:01
120 00:02:00
3600 01:00:00
3660 01:01:00
3661 01:01:01
12250 03:24:10
36000 10:00:00
72000 20:00:00
85000 23:36:40

Atualização

Para a exibição correta, lembre-se de alterar a forma de exibição. Selecione e célula e aperte [CTRL]+1, vá para personalizado e coloque hh:mm:ss

Abraços


Caso deseje mais artigos de Excel, veja nossa sessão com dicas de uso e outras coisas legais!
Você também possui dicas para compartilhar com nossos leitores? nos envie seu artigo e apareça no site

André Francisco Gotardo

O que você achou disso?

Média da classificação 4.6 / 5. Número de votos: 10

Nenhum voto até agora! Seja o primeiro a avaliar este post.

Como você achou esse post útil...

Ajude o site a crescer compartilhando o conteúdo

Lamentamos que este post não tenha sido útil para você!

Vamos melhorar este post!

Diga-nos, como podemos melhorar este post?

Tags: , ,

Artigos Relacionados

8 Comentários. Deixe novo

  • Cara muito Obrigado, ajudou muito sua formula!!!

    Responder
  • Alexandre
    06/04/2016 9:40 AM

    Muito bom.
    Ajudou mesmo!

    Responder
  • Blz, mas como ficaria o inverso?

    Responder
  • Poxa, obrigado mesmo! Ajudou pra caceta.

    Responder
  • Não funciona mais.. ele aparece 7:28 AM

    Responder
  • Diego Duarte
    04/09/2020 11:08 AM

    Olá, Roberto
    Você precisa ajustar a formatação da célula para hh:mm:ss. Adicionamos uma atualização ao artigo.
    abs!

    Responder
  • Diego Medeiros
    13/12/2020 11:51 AM

    VBA eu fiz dessa forma

    Sub Macro3()
    Dim hini, hfim As Date
    Dim diferenca As Double
    frmStatus.Show 0
    frmStatus.lblstatus.Caption = “Estamos atualizando…”
    hini = (Format(Now(), “hh:mm:ss”))

    ‘Application.CommandBars(“Queries and Connections”).Visible _
    ‘ = Not (Application.CommandBars(“Queries and Connections”).Visible)
    ‘ ActiveWorkbook.RefreshAll
    ‘Application.CommandBars(“Queries and Connections”).Visible _
    ‘ = Not (Application.CommandBars(“Queries and Connections”).Visible)

    hfim = (Format(Now(), “hh:mm:ss”))
    diferenca = DateDiff(“s”, hini, hfim)
    MsgBox “Iniciamos :” & hini & Chr(13) & “Finalizamos :” & hfim & Chr(13) & “Total : ” & Format(diferenca / 85000, “hh:mm:ss”)
    frmStatus.Hide
    End Sub

    Responder

Gostou do conteúdo? Deixe seu comentário

Menu