MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Calcular hora acima de 24 horas

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 29/1/2024, 02:48

    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


    Última edição por marcelo marques em 11/2/2024, 12:53, editado 1 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Marcelo David 29/1/2024, 04:18

    Tópico movido para a sala mais apropriada.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Calcular hora acima de 24 horas Marcel11
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 1/2/2024, 02:20

    Up
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Marcelo David 1/2/2024, 14:16

    Como é informado a hora?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Calcular hora acima de 24 horas Marcel11
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 2/2/2024, 01:14

    boa noite Marcelo muito obrigado em me responder , veja o exemplo abaixo para vc dar uma olhada
    Anexos
    [Resolvido]Calcular hora acima de 24 horas Attachmentdesliga pc (marcelo).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 10 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 5/2/2024, 09:17

    Up
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 11/2/2024, 12:54

    up
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 16/2/2024, 09:13

    Up
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 19/2/2024, 09:18

    Vou dar como encerrado este tópico
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Marcelo David 21/2/2024, 18:00

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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Calcular hora acima de 24 horas Marcel11
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 22/2/2024, 00:54

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Marcelo David 23/2/2024, 14:35

    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?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Calcular hora acima de 24 horas Marcel11
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 23/2/2024, 17:22

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Marcelo David 23/2/2024, 17:28

    Ah, entendi. Blz, irei ver aqui.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Calcular hora acima de 24 horas Marcel11
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Pablo Neruda 25/2/2024, 15:59

    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.


    .................................................................................
    [Resolvido]Calcular hora acima de 24 horas Uc?export=view&id=0B-lnOJoekdM2VzZBQzFMVzRreTg
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 27/2/2024, 02:03

    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
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Pablo Neruda 28/2/2024, 14:51

    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...


    .................................................................................
    [Resolvido]Calcular hora acima de 24 horas Uc?export=view&id=0B-lnOJoekdM2VzZBQzFMVzRreTg

    Marcelo David gosta desta mensagem

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 29/2/2024, 02:16

    boa noite Pablo desculpa mais já tentei de muitas formas mais não estou conseguindo
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 4/3/2024, 09:03

    Up
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Marcelo David 4/3/2024, 19:01

    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,


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Calcular hora acima de 24 horas Marcel11
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 12/04/2016

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  marcelo marques 5/3/2024, 20:53

    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

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Marcelo David 6/3/2024, 12:13

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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Calcular hora acima de 24 horas Marcel11

    Conteúdo patrocinado


    [Resolvido]Calcular hora acima de 24 horas Empty Re: [Resolvido]Calcular hora acima de 24 horas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 01:13