Gambas-it

Gambas3 => Programmazione => Topic aperto da: kicco - 19 Dicembre 2020, 15:12:20

Titolo: Tutti i giorni alla stessa ora.
Inserito da: kicco - 19 Dicembre 2020, 15:12:20
 :ciao:
Devo fare un'operazione (inviare una mail) tutti i giorni alla stessa ora.
C'è qualche trucco?
Ho provato ad usare DateAdd, ma non so se è la via corretta.
 :ciao:
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: cogier - 19 Dicembre 2020, 16:16:18
Prova questo codice.

Codice: [Seleziona]
Public Sub Timer1_Timer()

  If Str(Time(Now)) = "15:14:00" Then InviaEmail

End
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: kicco - 19 Dicembre 2020, 16:18:33
Grazie Cogier!
 :-*
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: kicco - 19 Dicembre 2020, 17:02:48
Citazione da: cogier - 19 Dicembre 2020, 16:16:18
Prova questo codice.

Codice: [Seleziona]
Public Sub Timer1_Timer()

  If Str(Time(Now)) = "15:14:00" Then InviaEmail

End
Str(Time(Now)) mi produce la string "/ 15:14:00"
 :-\
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: cogier - 19 Dicembre 2020, 18:07:12
Se si esegue il programma allegato, mostra "/ "?
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: kicco - 19 Dicembre 2020, 18:23:33
Citazione da: cogier - 19 Dicembre 2020, 18:07:12
Se si esegue il programma allegato, mostra "/ "?
Sì
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: cogier - 19 Dicembre 2020, 18:32:09
Ho cambiato la lingua di un computer portatile con l'italiano, sono di madrelingua inglese. Si vede che funziona come previsto. Non capisco perché stia succedendo questo. Prova questi cambiamenti.
Codice: [Seleziona]
Public Sub Timer1_Timer()

  Dim sTempo As String = Str(Time(Now))

  sTempo = Trim(Replace(sTempo, "/", ""))

  If sTempo = "17:29:00" Then InviaEmail

End

(https://www.cogier.com/gambas/ItalianClock.png)
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: kicco - 19 Dicembre 2020, 19:15:12
così funziona!
Potrebbe esser una questione di fuso orario?
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: kicco - 19 Dicembre 2020, 21:45:59
Ho provato anche
Codice: [Seleziona]
  If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail
:ciao:
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: vuott - 19 Dicembre 2020, 21:49:19
Citazione da: cogier - 19 Dicembre 2020, 18:32:09
Non capisco perché stia succedendo questo.
Suppongo sia dovuto a questo intervento:

    https://gitlab.com/gambas/gambas/-/commit/93659c3f7eab356b922d5be161990bf888fb3fd8
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: kicco - 19 Dicembre 2020, 22:00:42
 :-\
C'è sempre una grande discussione intorno a Date e Time!
Credo che la mia soluzione superi il problema.
Spero!
 :ciao:
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: vuott - 19 Dicembre 2020, 23:02:35
Citazione da: kicco - 19 Dicembre 2020, 22:00:42
Credo che la mia soluzione superi il problema.
Ritengo sia quella ora corretta.
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: allegfede - 31 Dicembre 2020, 13:13:33
Citazione da: kicco - 19 Dicembre 2020, 21:45:59
Ho provato anche
Codice: [Seleziona]
  If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail
:ciao:

secondo me questa e' formalmente piu' corretta
Titolo: Re:Tutti i giorni alla stessa ora.
Inserito da: vuott - 31 Dicembre 2020, 13:43:24
Citazione da: allegfede - 31 Dicembre 2020, 13:13:33
secondo me questa e' formalmente piu' corretta

Eh...  io e kicco appunto a questa ci riferivamo ! 

(https://i.pinimg.com/originals/e1/d5/1f/e1d51f7c5957975078259a5dd341cdce.gif)