| | Post: 5.892 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
02/05/2020 15:46 | |
Ciao a tutti parlo anche io adesso di estrazioni, ho un problema con delle estrazioni in Russia.
forse mi sto ponendo un problema inutile.
ho una query che mi prende le estrazioni dal sito Russo, ma il nostro fuso orario è 02:00 2 ore indietro rispetto la Russia.
le estrazioni avvengono ogni 30 minuti se vedo il sito Russo vedo le estrazioni all'orario Russo con 2 ore di anticipo.
le lancio la macro con la query non mi prende le ultime estrazioni ma sempre quelle con le 2 ore in meno insomma fa fede il mio orario del pc.
se anticipo il mio orario mettendolo sul fuso orario di Mosca, mi prende le estrazioni in orario giusto
esiste un modo per cambiare il fuso orario del mio PC e poi riportarlo all'orario di Roma?
non riesco a trovare il modo giusto per farlo.
mi date qualche input.
posso anche allegare la macro ma non è la macro dovrei cambiare l'orologio del PC con il VBA si può fare?
ciao By Sal se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
|
| | Post: 1.319 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
02/05/2020 16:46 | |
ciao a tutti
ciao Sal,
se ho capito bene,
potresti provare con
vb Application.OnTime Now + TimeValue("02:00:00"), "mia macro"
schedulando la macro due ore dopo, dovresti essere in linea con la Russia.
ciao
Frank [Modificato da tanimon 02/05/2020 16:47]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 2.315 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
02/05/2020 16:48 | |
ciao salvatore
la sparo li
non puoi prendere l'orario da una cella e e utilizzarlo per questo lavoro
esempio in una cella mettere ADESSO()+2/24
e prendere l'orario da questa che giustamente e' avanti di 2 ore
aggiornandolo con Calculate all'inizio della Query
Ciao da locate
excel 2007 / 13 |
| | Post: 5.892 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
02/05/2020 17:52 | |
Ciao Frank, non è cosi se parte la mia macro con 2 ore di anticipo in tempo effettivo siamo sempre in ritardo
Ciao Silvano come intendi con calculate, non è il fatto di aumentare il mio orario.
faccio un ipotesi
qui sono le 15 sull'ora del PC, in russia sono le 17
al momento le estrazioni sono alla numero 50 in russia se lancio la query con il mio orologio alla 15 la query mi riporta le estrazioni fino alla 46 mancando 4 estrazioni ogni mezzora invece se metto l'orologio del Pc all'ora di Mosca mi riporta le estrazioni fino alla 50
quindi la query si conforma all'orario del mio pc, non è la query che non va altrimenti anche cambiando dovrebbe riportarmi sempre fino alla 46.
non posso stare a modificare ogni volta il fuso orario.
direte perche cosa sono 2 ore, sono 4 estrazioni e le previsioni per i prossimi numeri risultano sballate se non ho l'ultima estrazione, sono costretto a collegarmi e prendere manualmente le estrazioni
ma indipendentemente dalle estrazioni, vorrei trovare il modo di cambiare il fuso orario in automatico
tempo fa trovai questa macro per ricavare il tempo da internet
Sub TimeNet()
Dim ws, http, GMT_Time, NewNow, NewDate, NewTime, Hr, Mn ', Sc
Const GMTTime As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=gmt"
On Error Resume Next
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", GMTTime & Now(), False, "", ""
http.Send
GMT_Time = http.getResponseHeader("Date")
GMT_Time = Mid$(GMT_Time, 6, Len(GMT_Time) - 9)
Hr = 1
Mn = 0
'Sc = 0' secondi.
NewNow = DateAdd("h", Hr, GMT_Time)
NewNow = DateAdd("n", Mn, NewNow)
'in cella
Cells(1, 1) = NewNow
'messaggio
MsgBox "Current Date & Time is: GMT " & NewNow, vbOKOnly, "GetiNetTime"
Cleanup:
'Set ws = Nothing
Set http = Nothing
End Sub
come potrei usarla?
non riesco a capire nella query dove intervenire per il tempo.
questa è la query
Sub Russ536()
Dim r, r1, rx, c, c1, cx, x, y, d, d1, n, T
SetFg
sh1.Activate
sSi
With Application
.StatusBar = True
.StatusBar = "Dati per GosLoto 5/36"
End With
sNo
Sh3.Visible = True
Sh3.Activate
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://en.stoloto.ru/5x36plus/archive", Destination:=Sh3.Range("$A$1"))
'.CommandType = 0
.Name = "archive_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets("Appoggio").Select
Call EstrDati(1)
sh1.Activate
sSi
sh1.Cells(10, 9) = Date
End Sub
non vedo nella query un periodo di orario, tranne "RefreshPeriod" che è messo a 0, ma quello fa partire l'aggiornamento dopo x secondi
forse qualche shell per modificare l'ora del pc e poi rimetterla a posto.
Ciao Salvatore
[Modificato da by sal 02/05/2020 18:03] se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 1.320 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
02/05/2020 18:14 | |
ciao Sal,
se non l'hai già testata,forse può esserti utile.
dalla guida
Example
This example uses the TimeSerial function to return a time for the specified hour, minute, and second.
VB
Dim MyTime
MyTime = TimeSerial(16, 35, 17) ' MyTime contains serial
' representation of 4:35:17 PM.
da ritornare all'orario giusto a fine esecuzione query
prima di End Sub
ciao
Frank
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 5.893 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
02/05/2020 20:07 | |
Ciao Frank niente anche cambiando non succede niente, solo se cambio l'orario del pc si aggiorna.
cerco di vedere come fare a cambiarlo
Ciao By sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 1.321 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
02/05/2020 20:24 | |
ciao Sal,
io ho fatto così e a me ha funzionato:
dall'icona dell'applicazione, non quella del file che vuoi aprire,
ma quella dell'applicazione Excel ,
tasto destro > esegui come amministratore.
dal menu apri, ho aperto un file con all'interno di un modulo
questa macro
vb Sub a()
Time = TimeSerial(21, 35, 17) ' quando l'ho provata erano le 20:30)
End Sub
mi ha cambiato l'ora in basso a destra del monitor.
ciao
Frank [Modificato da tanimon 02/05/2020 20:30]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 5.894 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
02/05/2020 20:34 | |
Ciao Frank puoi passarmi il file, a me non lo fa anche se vado come amministratore
Ciao Salvatore se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 1.322 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
02/05/2020 20:41 | |
ciao,
eccolo
l'ho ri-testato e confermo, funziona.
mi cambia l'ora dell'orologio in basso a destra.
Cerca Excel da
Start > programmi > Excel > tasto destro > Esegui come Amministratore
poi dal menu File
Apri > nome_file
ciao
Frank [Modificato da tanimon 02/05/2020 20:55]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 5.895 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
03/05/2020 07:54 | |
Ciao Frank, Grazie, funziona a dovere, come hai detto, ed ho risolto il problema.
in quanto cambio il Tempo alla partenza della macro e lo ripristino alla fine
come vedi ce sempre da imparare qualcosa.
Ciao Salvatore
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 1.323 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
03/05/2020 09:06 | |
Ciao a tutti
ciao Salvatore,
bene se hai risolto e grazie del riscontro.
by sal, 03/05/2020 07:54:
come vedi ce sempre da imparare qualcosa.
Ciao Salvatore
come dico spesso scherzando...
"...fino alla bara si impara!"
ciao
Frank
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 2.316 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
03/05/2020 10:43 | |
ciao
ciao Frenk, ho visto adesso tutto il lavoro per Salvatore, quindi ho capito che possiamo utilizzare la sub() come se fosse un file di partenza .bat dove mettevamo Date e Time per ripristinare all'accessione tali parametri in quanto non venivano memorizzati
io ieri sera avevo fatto delle prove con un file.bat con al suo interno questi due comandi , e funzionava se toglievo la spunta su automatico
stavo vedendo se in rete trovavo un comando in VBA che facesse questo lavoro, ma dopo vari tentativi e l'ora tarda sono andato a letto senza nulla di fatto
la mia idea era proprio all'inizio della sub() disattivare questi
lanciare con la Sheel( il file bat ) spostare l'orario e alla fine riattivare la spunta e la data e lorario si sarebbero aggiornati da soli
ciao a tutti
Ciao da locate
excel 2007 / 13 |
| | Post: 1.324 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
03/05/2020 10:52 | |
ciao a tutti
ciao Locate,
locatevaresino, 03/05/2020 10:43:
la mia idea era proprio all'inizio della sub() disattivare questi
lanciare con la Sheel( il file bat ) spostare l'orario e alla fine riattivare la spunta e la data e lorario si sarebbero aggiornati da soli
sicuramente una valida idea/alternativa e se non fosse stato tardi,sono certo che l'avresti realizzata.
Ma lasciamelo dire, 2 righe di codice ad inizio e fine,
credo siano più semplici e veloci da applicare.
Grazie comunque per il tuo intervento, l'idea di utilizzare la Shell potrebbe essere utile in situazioni diverse da questa.
ciao
Frank
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 2.317 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
04/05/2020 10:45 | |
ciao
ciao Salvatore e Frank
ieri tempo da perdere mi sono imposto se era possibile fare il lavoro che avevo pensato, fatte un paio di telefonate ad un mio amico che lavora su reti, e mi a detto che per ovviare a queste restrizioni fatte appositamente da Microsoft , si poteva arginare il problema portando un file .bat in un file .exe
scaricato un convertitore ho provato e sono riuscito a fare questo lavoro, ma mi sono ritrovato con troppi movimenti da eseguire per rimettere a posto l'orario, quindi o optato per la soluzione di Frank mettendo in apertura e in chiusura il cambio di orario
''ThisWorkbook
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean) ''chiude e attiva funzioni
On Error Resume Next
Dim ora As Integer, minuto As Integer, secondo As Integer
ora = Hour(Time) - 2
minuto = Minute(Time)
secondo = Second(Time)
Time = TimeSerial(ora, minuto, secondo)
Calculate
End Sub
Private Sub workbook_open()
On Error Resume Next
Dim ora As Integer, minuto As Integer, secondo As Integer
ora = Hour(Time) + 2
minuto = Minute(Time)
secondo = Second(Time)
Time = TimeSerial(ora, minuto, secondo)
Calculate
End Sub
aprendolo come amministratore mi fa il cambio di orario , lavoro tutto il tempo che voglio e alla fine mi riporta al mio orario
quindi soluzione piu' performante
Ciao da locate
excel 2007 / 13 |
|
|