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
8 Comentários. Deixe novo
Cara muito Obrigado, ajudou muito sua formula!!!
Muito bom.
Ajudou mesmo!
Blz, mas como ficaria o inverso?
Poxa, obrigado mesmo! Ajudou pra caceta.
Não funciona mais.. ele aparece 7:28 AM
Olá, Roberto
Você precisa ajustar a formatação da célula para hh:mm:ss. Adicionamos uma atualização ao artigo.
abs!
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
Show de bola, obrigado por compartilhar