Jump to content
Fórum Script Brasil
  • 0

Transformar Segundos Em Hora (ex: 80seg Em 1min20seg)


kuroi

Question

Esse é pra quem calcula diferenca em segundos e depois quer escrever o valor em minutos ou horas.

Exemplo, você tem um intervalo de 80 segundos e quer transformar em 1 minuto e 20 segundos.

ou tem 3600 segundos e quer transformar em 1 hora.

Note q se você tem o valor em minutos e quer transformar em hora é só multiplicar por 60 e usar a funcao abaixo.

Essa funcao vai transformar no formato H:MM:SS. caso você queira um formato diferente, é simples, é so editar no final onde a string é montada, sem se preocupar com os calculos.

A funcao tb suporta valores negativos, pondo um sinal de - na frente (exemplo -80, vai retornar - 0:01:20):

Public Function MontaHora(ByVal Seg As Long) As String
    Dim Hor As Long, Min As Long
    
    If Seg < 0 Then
        MontaHora = "- "
        Seg = Abs(Seg)
    Else
        MontaHora = ""
    End If
    
    Hor = Seg \ 3600&
    Seg = Seg - (Hor * 3600&)
    
    Min = Seg \ 60&
    Seg = Seg - (Min * 60&)
    
    MontaHora = MontaHora & Hor & ":" & _
        Format(Min, "0#") & ":" & _
        Format(Seg, "0#")
End Function[/code]

EDITADO:

dei uma melhorada na funcao, q o codigo estava muito ruim (28/10/2010).

Edited by kuroi
Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Se estiver usando o MySQL, creio que ele tenha uma função capaz de realizar este feito.

Eu mesmo vou precisar disso em breve.

Achei a função que converte um montante de segundos em formato de horas é sec_to_time.

Exemplo:

Instrução: select sec_to_time(3600);

Resultado: 01:00:00

Espero que seja útil.

Edited by Flechaus
Link to comment
Share on other sites

  • 0
Se estiver usando o MySQL, creio que ele tenha uma função capaz de realizar este feito.

Eu mesmo vou precisar disso em breve.

Achei a função que converte um montante de segundos em formato de horas é sec_to_time.

Exemplo:

Instrução: select sec_to_time(3600);

Resultado: 01:00:00

acho q os desenvolvedores do mysql copiaram meu codigo hehehaha

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...