MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Capturar / obter Data e Hora de website

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6687
    Registrado : 15/03/2013

    Capturar / obter Data e Hora de website Empty Capturar / obter Data e Hora de website

    Mensagem  ahteixeira em 23/6/2018, 03:01

    Olá a todos,

    Apesar de já existir exemplo de capturar Data e Hora de Website, partilho outro exemplo.
    Para este exemplo criei um website  dthr.dx.am  para consultar a Data e Hora num servidor em Linux com PHP.

    No servidor criei um ficheiro index.php com o seguinte código:
    Código:
    <?php
    date_default_timezone_set("Europe/Lisbon");
    echo "" . date("d-m-Y H:i:s");
    ?>

    A função responsável pela captura tem o seguinte código:
    Código:
    Function fncDataHoraNet() As Date
    'ahteixeira 2018 para MaximoAccess
        
        Dim objIE As Object, objTb As Object

        Set objIE = CreateObject("InternetExplorer.Application")
        
        objIE.Visible = False
        objIE.Navigate "http://dthr.dx.am"
        
        Do While objIE.Busy: DoEvents: Loop
        Do While objIE.ReadyState <> 4: DoEvents: Loop
        
        Set objTb = objIE.Document.all.Item(i)
      
           fncDataHoraNet = objTb.innerText
        
        objIE.Quit
        Set objTb = Nothing
        Set objIE = Nothing
    End Function

    No exemplo que anexo, criei um botão com o seguinte código:
    Código:
    Private Sub CmdConsultar_Click()
    'ahteixeira 2018 para MaximoAccess
    'Requer função: fncDataHoraNet
    Dim xData As Date

        Me.CmdConsultar.Caption = "Aguarde por favor"
        
        xData = fncDataHoraNet()
        
        Me.txtDataHora = xData
        Me.txtData = Left(xData, 10)
        Me.txtHora = Right(xData, 8)
        
        Me.CmdConsultar.Caption = "Consultar data e hora online"
    End Sub

    Abraço

    Nota:
    Aproveito para informar que este fórum é de Access e o código em PHP é apenas complemento do exemplo.
    Não é permitido tirar dúvidas no Repositório de Exemplos.
    Anexos
    Capturar / obter Data e Hora de website AttachmentCapturarDataHoraDaNet.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 79 vez(es)


    Última edição por ahteixeira em 24/6/2018, 17:28, editado 1 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4172
    Registrado : 06/11/2009

    Capturar / obter Data e Hora de website Empty Re: Capturar / obter Data e Hora de website

    Mensagem  Assis em 24/6/2018, 00:04

    Parabéns Teixeira

    Muda a data e hora ao passar a Meia Noite

    Obrigado




    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    Capturar / obter Data e Hora de website Empty Re: Capturar / obter Data e Hora de website

    Mensagem  JPaulo em 28/6/2018, 11:07

    Parabens, gostei.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Capturar / obter Data e Hora de website Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Capturar / obter Data e Hora de website Folder_announce_new 102 Códigos VBA Gratuitos...
    Capturar / obter Data e Hora de website Folder_announce_new Instruções SQL como utilizar...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6687
    Registrado : 15/03/2013

    Capturar / obter Data e Hora de website Empty Re: Capturar / obter Data e Hora de website

    Mensagem  ahteixeira em 28/6/2018, 17:55

    Obrigado Amigos!
    cheers

      Data/hora atual: 5/6/2020, 04:07