FORMATO DE HORAS

 Tópico anterior Próximo tópico Novo tópico

FORMATO DE HORAS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#444339 - 05/02/2015 20:17:43

SIRIOUS
CAMPINAS
Cadast. em:Dezembro/2012




'Prezados amigos do forum, num aplicativo (em VB 6), no evento <Load> do formulário há uma instrução:
‘---------------------------------------------------------------------------------
lblTempo.Caption = "00:05:00"
lblComplement.Caption = " minutos"

‘---------------------------------------------------------------------------------
‘No evento <Click> do timer, o código é o seguinte:

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

‘---------------------------------------------------------------------------------
‘Ao ser carregado, o form exibe o label  iniciando a contagem regressiva: :
00:04:59 minutos.
‘Queria mudar o painel para:
04 min 59 seg.
‘O que deve ser modificado no código acima?
Grato.


... Carpe diem ....


Resposta escolhida #444341 - 05/02/2015 21:52:24

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Última edição em 05/02/2015 21:55:10 por MARCELO-TREZE

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



________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#444342 - 05/02/2015 21:55:06

FILMAN
PRESIDENTE PRUDENTE
Cadast. em:Março/2010


 Anexos estao visíveis somente para usuários registrados

Bom o marcelo postou antes de mim, mas mesmo assim segue anexo para estudo!

  
  
Instruir-te-ei, e ensinar-te-ei o caminho que deves seguir; guiar-te-ei com os meus olhos. (Salmos 32:8)

www.cursoexcelvba.com.br

#444344 - 05/02/2015 23:37:49

SIRIOUS
CAMPINAS
Cadast. em:Dezembro/2012


Obrigado Marcelo.
Já alterei no form, conforme sugeriu.
Obrigado ao Filman também (vou estudar o exemplo que passou).
Abraços.


... Carpe diem ....


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por SIRIOUS em 05/02/2015 23:38:30