Funciona mas com data Brasileira por causa da diferença horária.
Obrigado
Private Sub Form_Timer()
Me.Texto5.Caption = Time()
Me.TextoNovo.Caption = DateAdd("h", -2, Me.Texto5.Caption)
End Sub
Private Sub Form_Timer()
Me.Texto5.Caption = Time()
Me.txtData = Date
End Sub
Private Sub Form_Timer()
On Error Resume Next
Me.Texto3 = Date
Me.Texto5.Caption = Time()
Me.txtData = fncCapturaData
Me.HoraNova.Caption = Format(DateAdd("h", -4, Me.Texto5.Caption), "hh:nn:ss")
End Sub
'ahteixeira alteração para hora portuguesa
fncCapturaData = DateAdd("h", 8, fncCapturaData)
End Function
Private Sub Form_Current()
Dim xData As Date
xData = fncCapturaData
Me.txtData = xData
Me.txtHora = xData
End Sub
With appIE
'Lisboa
'.Navigate "https://www.google.pt/search?q=tempo+em+portugal&oq=tempo+em+portugal&aqs=chrome..69i57.4452j0j7&sourceid=chrome&ie=UTF-8"
'Porto
.Navigate "https://www.google.pt/search?q=tempo+porto&oq=tempo&aqs=chrome.1.69i57j0l5.4036j0j7&sourceid=chrome&ie=UTF-8"
.Visible = False
End With
Private Sub Form_Timer()
On Error Resume Next
Me.txtData = DateAdd("h", 8, fncCapturaData)
Me.txtHora.Caption = Format(Me.txtData.Value, "hh:nn:ss")
End Sub