[Resolvido]Calcular hora acima de 24 horas

boa noite pessoal estou com teste código abaixo para (desligar , reiniciar o computador e desligar o monitor )porém quando eu programo acima de 24 horas ele volta a hora e não desliga o computador
Private Sub Form_Timer()

Código:

'On Error GoTo sair
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


If Me.liberar = True Then
       Dim contatempo As Date
        Dim TempoA  As Date
        Dim TempoN  As Date
            contatempo = Me.TotalHoras
             TempoA = Format(Time(), "hh:nn:ss")
             Me.txt_diferencaHora = Format((TempoA - contatempo), "hh:nn:ss")
  Me.txtreceberMinutos = Format(TempoA - contatempo, "nn:ss")

 
 Else
 Me.txtreceberMinutos = "00:00:00"
 
 
End If




'''''''''''''''''''''''''''''''''''''''''''

Me.HoraAtual = Format(Time(), "hh:nn:ss")
Select Case Me.Quadro04
Case 1 'desliga pc





    Me.HoraAtual = Format(Time(), "hh:nn:ss")
        Me.status = "Desligar O Computador!!!"
        'Me.Recalc
          If Me.txt_diferencaHora = "00:00:30" Then
          DoCmd.Restore
            Me.txtreceberMinutos.Visible = True
            Me.txtAviso.Visible = True
           Me.txtAviso.Caption = "Atenção o computador Vai Desligar em:"
        End If

   
   
        If Me.TotalHoras = Me.HoraAtual Then
     
            Shell "shutdown -s -t 02", vbHide
        End If

Case 2 'reinicia pc
'''''''''''''''''''
Me.HoraAtual = Format(Time(), "hh:nn:ss")
'Me.txt_diferencaHora = TimeValue(Me.HoraAtual - TimeValue(Me.TotalHoras))

Me.status = "Reiniciar O Computador!!!"

Me.HoraAtual = Format(Time(), "hh:nn:ss")
      If Me.liberar = True Then
      If Me.txt_diferencaHora = "00:00:30" Then
     DoCmd.Restore
       Me.txtreceberMinutos.Visible = True
       Me.txtreceberMinutos = TempoN
       Me.txtAviso.Visible = True
       Me.txtAviso.Caption = "Atenção o Computador Vai Reiniciar em:"
       MsgBox Me.txtreceberMinutos
 End If
 
    If Me.TotalHoras = Me.HoraAtual Then
   
   Shell "shutdown -r -f -t 02", vbHide
   End If
End If



Case 3 'desligar monitor



'''''''''''''''''''''''''''''''''''''''''

Me.HoraAtual = Format(Time(), "hh:nn:ss")
   
   
    Me.status = "Desligar O Monitor!!!"
   If Me.liberar = True Then
'   Me.txt_diferencaHora = TimeValue(Me.HoraAtual) - TimeValue(Me.TotalHoras)
 
 
   If Me.txt_diferencaHora = "00:00:30" Then
   DoCmd.Restore
   
       Me.txtreceberMinutos.Visible = True
       Me.txtAviso.Visible = True
       Me.txtAviso.Caption = "Atenção o Monitor Vai desligar em:"
'
 End If
 
 
  If Me.TotalHoras = Me.HoraAtual Then
 
    Call MonitorPower
    Me.txt_diferencaHora.Visible = False
    Me.TotalHoras.Visible = True

      Me.TotalHoras = ""
        Me.cboHora = 0
          Me.cboMinuto = 0
            Me.TotalHoras = 0
             Me.txtAviso.Visible = False
              Me.txtreceberMinutos.Visible = False

   Me.liberar = False
   
   End If


End If


End Select
'sair:
End Sub

Sub fncSomaTime()
Dim h, m, s
h = Hour(Me.HoraAtual)
m = Minute(Me.HoraAtual)
s = Second(Me.HoraAtual)
Me.TotalHoras = Format(TimeSerial(h + Nz(Me.cboHora), m + Nz(Me.cboMinuto), s), "hh:nn:ss")
End Sub

Sub bloueia()
Me.cboHora.Enabled = False
Me.cboMinuto.Enabled = False
Me.TotalHoras.Enabled = False
Me.btn_minimizar.Enabled = False
Me.Quadro04.Enabled = False
End Sub
Sub desbloueia()
Me.cboHora.Enabled = True
Me.cboMinuto.Enabled = True
Me.TotalHoras.Enabled = True
Me.btn_minimizar.Enabled = True
Me.Quadro04.Enabled = True
End Sub

Private Sub SpinButton1_SpinDown()
'If Me.cboMinuto = 60 Then
'Me.cboMinuto = 1
'Else

Me.cboMinuto = Me.cboMinuto - 1
If Me.cboMinuto = 0 Then
Me.txt_diferencaHora = Me.HoraAtual
Me.cboMinuto = 0
Call fncSomaTime
Else
Call fncSomaTime
End If

End Sub

Private Sub SpinButton1_SpinUp()
'If Me.cboMinuto = -1 Then
'Me.cboMinuto = 60
'Else

Me.cboMinuto = Me.cboMinuto + 1
Call fncSomaTime
'End If





End Sub

Up

Como é informado a hora?

boa noite Marcelo muito obrigado em me responder , veja o exemplo abaixo para vc dar uma olhada

Up

up

Up

Vou dar como encerrado este tópico

Boa tarde. Estive muito ocupado esses dias. Você conseguiu resolver? Se não, podemos tentar (nesse caso, reabriria o tópico)

Boa noite Marcelo não consegui aínda eu estava usando só nos horários antes de virar para outro diaais se vc puder me ajudar eu agradeço

Os campos Hora e Minutos devem adicionar a hora atual e exibir o resultado no campo Hora final?

Não entendi pq vc quer hora acima de 24, mas a combo hora vai apenas até 10.
Poderia explicar o funcionamento desejado do form?

Boa tarde Marcelo tudo bem então esse formulário na verdade é um programinha r que eu fiz para desligar o computador por exemplo às vezes eu deito por volta de 23:30 aí eu vou colocar ele para desligar,se eu colocar uma hora depois ele não desliga entendeu porque já passou para outro dia

Ah, entendi. Blz, irei ver aqui.

Você deve utilizar a função Datediff para fazer seu controle do temporizador, pois nele vc vai fazer o calculo do tempo considerando a data/hora de quando iniciou o monitoramento para desligar pela data e hora de atual, daí ele pode mudar a data que será considerado todo o tempo do período.

Boa noite Pablo desculpa mais não estou sabendo onde colocar o dataDiff veja a forma que fiz mais não esta funcionando


Sub fncSomaTime()
Dim h, m, s
h = Hour(Me.HoraAtual)
m = Minute(Me.HoraAtual)
s = Second(Me.HoraAtual)
Me.TotalHoras = Format(TimeSerial(h + (Nz(DateDiff(Me.cboHora))), m + (Nz(DateDiff(Me.cboMinuto))), s), "hh:nn:ss")
End Sub

Marcelo, me explica como é o seu fluxo para a programação. Você entra no sistema e coloca que quer que o computador desligue daqui a x minutos?

? datediff("n","27/02/2024 11:00",now())

Se você for na janela imediata e executar esse comando, ele vai te dar quantos minutos de passaram da data digitada até o momento em que vc executou o comando, idenpendente de ter virado o dia.

Se você mudar o "n" para "h" vai ter quantas horas se passaram, para "d" quantos dias se passaram...

Dê uma olhada em https://learn.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/datediff-function

Veja se com essa informação consegue avançar, caso contrário volte aqui...

boa noite Pablo desculpa mais já tentei de muitas formas mais não estou conseguindo

Up

Desculpe demora.
Aqui está um pequeno exemplo que criei.
Pela minha fata de tempo, não fiz no seu, criei um novo.

Baixe aqui.

Aguardamos,

boa tarde Marcelo E Pablo muito obrigado pela ajuda de vocês, Marcelo deu certo ficou perfeito e vai desculpando aí o incômodo tá obrigado

Não incomodo algum! Ficamos felizes por ter dados certo. Grato pelo retorno!