Início / coding / Perguntas / 79568168
Accepted
Danny Coleiro
Asked: 2025-04-11 14:42:07 +0800 CST

Como omitir minutos ao formatar uma hora?

  • 772

O código a seguir é perfeito.

    Sub Macro1()
            
        Dim mySecond As Double
        mySecond = 75
            
        Dim myMinute As Double
        myMinute = mySecond / 86400
            
        'Output of the following code is 01:15 which is perfect.
        Debug.Print Format(myMinute, "nn:ss")
             
    End Sub

Quero encurtar o código acima omitindo as seguintes linhas.

        Dim myMinute As Double
        myMinute = mySecond / 86400

É possível?

vba

1 respostas

  1. Best Answer

    Use TimeSerialo que é exatamente para isso:

       Sub Macro1()
            
        Dim mySecond As Integer
        mySecond = 75
            
        'Output of the following code is 01:15 which is perfect.
        Debug.Print Format(TimeSerial(0, 0, mySecond), "nn:ss")
             
    End Sub
    • 2

relate perguntas