FORMATO DE HORAS

SIRIOUS 05/02/2015 20:17:43
#444339


[ô]Prezados amigos do forum, num aplicativo (em VB 6), no evento <Load> do formulário há uma instrução:
‘---------------------------------------------------------------------------------
[txt-color=#0000f0]lblTempo.Caption = [Ô]00:05:00[Ô]
lblComplement.Caption = [Ô] minutos[Ô][/txt-color]
‘---------------------------------------------------------------------------------
‘No evento <Click> do timer, o código é o seguinte:

[txt-color=#0000f0]Private Sub tmrTempo_Timer()
If lblTempo.Caption = [Ô]00:00:00[Ô] Then
Unload frmListadePecas
Unload frmExibeFotoPecas
Unload frmAjuda
FrmGeral.Show
MsgBox [Ô]Consulta concluida ...[Ô] & vbNewLine & _
[Ô]Para voltar, clique em [Ô] & vbNewLine & _
[Ô]Consultas / Pela Lista ...[Ô], 64
Else
lblTempo = Format(TimeValue(lblTempo) - TimeValue([Ô]00:00:01[Ô]), [Ô]hh:mm:ss[Ô])
If lblTempo.Caption >= [Ô]00:01:00[Ô] Then
lblComplement.Caption = [Ô] minutos[Ô]
Else
lblComplement.Caption = [Ô] segundos[Ô]
End If
End If
End Sub[/txt-color]
‘---------------------------------------------------------------------------------
‘Ao ser carregado, o form exibe o label iniciando a contagem regressiva: :
[txt-color=#0000f0]00:04:59 minutos.[/txt-color]
‘Queria mudar o painel para:
[txt-color=#0000f0]04 min 59 seg.[/txt-color]
‘O que deve ser modificado no código acima?
Grato.
MARCELO.TREZE 05/02/2015 21:52:24
#444341 Resposta escolhida
assim
no general do form declare

Dim tempo As Date


no load

tempo = [Ô]00:05:00[Ô]


[ô] e no seu código

Private Sub tmrTempo_Timer()
If tempo = CDate([Ô]00:00:00[Ô]) Then
    Unload frmListadePecas
    Unload frmExibeFotoPecas
    Unload frmAjuda
    FrmGeral.Show
    MsgBox [Ô]Consulta concluida ...[Ô] & vbNewLine & _
    [Ô]Para voltar, clique em [Ô] & vbNewLine & _
    [Ô]Consultas / Pela Lista ...[Ô], 64
Else
tempo = TimeValue(tempo) - TimeValue([Ô]00:00:01[Ô])
    lblTempo.Caption = Minute(tempo) & [Ô] min [Ô] & Second(tempo) & [Ô] seg[Ô]
    If tempo >= CDate([Ô]00:01:00[Ô]) Then
        lblComplement.Caption = [Ô] minutos[Ô]
    Else
        lblComplement.Caption = [Ô] segundos[Ô]
        End If
    End If
End Sub
FILMAN 05/02/2015 21:55:06
#444342
Bom o marcelo postou antes de mim, mas mesmo assim segue anexo para estudo!
SIRIOUS 05/02/2015 23:37:49
#444344
Obrigado Marcelo.
Já alterei no form, conforme sugeriu.
Obrigado ao Filman também (vou estudar o exemplo que passou).
Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar