[Resolvido]Dúvida com Cronômetros

Olá, numa leitura breve do código parece fácil.
Repare, no código esta a subtrair 1 ( - 1 )
Deveria ser criada uma variavel e alterar para + iCronometro
Também deveria ser necessário outra variavel a definir o tipo de cronometro, poderia ser

CronometroRegressivo

Do tipo true / false , em que por defeito era false

O contador ao chegar a zero iria defenir True

Depois só era necessário uma condição, exemplo:

If CronometroRegressivo = false then
ICronometro = -1
Else
ICronometro = 1
Endif

Não testado, desculpe apresentação mas foi do celular.
Abraço

Olá Vailson,
Poste a base de dados com o formulario onde pretende usar o cronometro.
Assim fica mais fácil para qualquer membro ajudar.
Abraço

Olá Vailson,
Cole o código abaixo no exemplo que postou e teste.
Está a fazer 10 segundos, depois ajuste para 30 minutos.
Comentei as cores no meu teste, depois ajuste como pretendido.
Abraço

Código:

Option Compare Database
Dim t
Dim booCronometroRegressivo As Boolean
Dim iCronometro As Integer

Private Sub Form_Load()
    Me.CRONOUP.Visible = False
    Me.CRONO = "00:00:10"
    Me.TimerInterval = 100
    booCronometroRegressivo = True
    iCronometro = -1
End Sub

Private Sub form_timer()
Dim xHora, h As Integer
Dim xMinuto, m As Integer
Dim xSegundo, s As Integer
Dim x As Integer

    xSegundo = Second(CRONO)
    xMinuto = Minute(CRONO)
    xHora = Hour(CRONO)
    Me.TimerInterval = 1000
    
    If xSegundo >= 0 Then
        xSegundo = xSegundo + iCronometro
    Else
        xSegundo = 59
        If xMinuto > 0 Then
            xMinuto = xMinuto + iCronometro
        Else
            xMinuto = 59
            If xHora >= 0 Then
                xHora = xHora + iCronometro
            End If
        End If
    End If
    
    
    Me.CRONO = Format(TimeSerial(xHora, xMinuto, xSegundo), "hh:mm:ss")
    If xMinuto = 9 Then
        Me.Detalhe.BackColor = RGB(255, 255, 0)
    End If
    
    If xMinuto = 4 Then
        Me.Detalhe.BackColor = RGB(255, 165, 0)
    End If
    
    
    If xMinuto = 0 Then
    
    Static TrocaCor As Boolean
        If Not TrocaCor Then
'            Me.Detalhe.BackColor = RGB(255, 0, 0)
        Else
'            Me.Detalhe.BackColor = RGB(255, 255, 255)
        End If
      TrocaCor = Not TrocaCor 'Alterna o estado
    End If
    
    If xHora = 0 And xMinuto = 0 And xSegundo = 0 Then
        'altera para progressivo
        If booCronometroRegressivo = True Then
            booCronometroRegressivo = False
            iCronometro = 1
        End If
    End If
End Sub




Nota: Deve usar a indentação, fica mais fácil para ler o código, se tiver dúvidas, efetue uma busca aqui no fórum

Olá, obrigado pelo retorno.
Em que momento exacto é que pretende mudar a cor?
Abraço

Olá Vailson, efetue como eu fiz na mudança doncontador.
Na parte que altera as cores, antes coloque o IF a controlar o tipo contador, será:

If booCronometroRegressivo = True Then
... O que já tem a alterar as cores
Endif

Abraço

Olá Vailson, obrigado pelo retorno.
Abraço