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:
A função responsável pela captura tem o seguinte código:
No exemplo que anexo, criei um botão com o seguinte código:
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.
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
CapturarDataHoraDaNet.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (18 Kb) Baixado 199 vez(es)
Última edição por ahteixeira em 24/6/2018, 17:28, editado 1 vez(es)