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


4 participantes

    Capturar / obter Data e Hora de website

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 200 vez(es)


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

    cantu e crysostomo gostam desta mensagem

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 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 : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 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...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 28/6/2018, 17:55

    Obrigado Amigos!
    cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 14/7/2020, 13:03

    Olá a todos,

    Adicionei um novo método na consulta ao website via "XML HttpRequest" que fica mais rápido:
    Código:
    Function fncDataHoraNetXML() As String
    'ahteixeira 2020 para MaximoAccess
    'requer a referencia Microsoft XML 6.0

        Dim xmlhttp As XMLHTTP60
        Dim sResposta As String

        Set xmlhttp = New XMLHTTP60
        
        xmlhttp.Open "GET", "http://dthr.dx.am/index.php" & "?cb=" & Timer() * 100, False
        xmlhttp.send

        sResposta = Trim(xmlhttp.ResponseText)
        fncDataHoraNetXML = sResposta
    End Function

    Requer a referência ao Microsoft XML 6.0.

    Abraço
    Anexos
    Capturar / obter Data e Hora de website AttachmentCapturarDataHoraDaNetV2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 89 vez(es)

    Marcelo David e pcnet gostam desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 14/7/2020, 13:30

    Muito bom, parabéns e obrigado por compartilhar!


    .................................................................................
    Capturar / obter Data e Hora de website Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Capturar / obter Data e Hora de website Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Capturar / obter Data e Hora de website Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Capturar / obter Data e Hora de website Marcel11
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 16/7/2020, 13:33

    Obrigado Teixeira


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 13/3/2021, 12:31

    Olá a todos,

    Aproveito para informar que criei outro endereço dthr.alwaysdata.net alternativo ao dthr.dx.am

    Capturar / obter Data e Hora de website 0170

    A diferença é que o anterior está alojado num servidor que não permite ter o certificado SSL para uma ligação segura (https).
    Fica o endereço alternativo para quem necessitar, o código é o mesmo só é necessário ajustar a URL.

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 29/3/2022, 11:03

    Olá a todos,

    Como alguns colegas não tem servidor próprio e estão a usar as URLs do exemplo, foram adicionadas os seguinte fusos horários:

    dthr.dx.am/belem.php
    dthr.alwaysdata.net/belem.php

    dthr.dx.am/manaus.php
    dthr.alwaysdata.net/manaus.php

    dthr.dx.am/noronha.php
    dthr.alwaysdata.net/noronha.php

    dthr.dx.am/rio_branco.php
    dthr.alwaysdata.net/rio_branco.php

    dthr.dx.am/sao_paulo.php
    dthr.alwaysdata.net/sao_paulo.php


    Se desejarem que seja adicionada mais alguma zona é só pedir.
    Não esquecer de ajustar a URL no código na seguinte linha:
    Código:
    xmlhttp.Open "GET", "http://dthr.dx.am/sao_paulo.php" & "?cb=" & Timer() * 100, False

    Abraço a todos

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 15:45