Autore Topic: Tutti i giorni alla stessa ora.  (Letto 982 volte)

Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Tutti i giorni alla stessa ora.
« il: 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:
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline cogier

  • Gambero
  • **
  • Post: 57
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #1 il: 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

Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #2 il: 19 Dicembre 2020, 16:18:33 »
Grazie Cogier!
 :-*
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #3 il: 19 Dicembre 2020, 17:02:48 »
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"
 :-\
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline cogier

  • Gambero
  • **
  • Post: 57
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #4 il: 19 Dicembre 2020, 18:07:12 »
Se si esegue il programma allegato, mostra "/ "?

Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #5 il: 19 Dicembre 2020, 18:23:33 »
Se si esegue il programma allegato, mostra "/ "?
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline cogier

  • Gambero
  • **
  • Post: 57
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #6 il: 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


Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #7 il: 19 Dicembre 2020, 19:15:12 »
così funziona!
Potrebbe esser una questione di fuso orario?
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #8 il: 19 Dicembre 2020, 21:45:59 »
Ho provato anche
Codice: [Seleziona]
  If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail
:ciao:
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.683
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #9 il: 19 Dicembre 2020, 21:49:19 »
Non capisco perché stia succedendo questo.
Suppongo sia dovuto a questo intervento:

    https://gitlab.com/gambas/gambas/-/commit/93659c3f7eab356b922d5be161990bf888fb3fd8
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #10 il: 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:
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.683
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #11 il: 19 Dicembre 2020, 23:02:35 »
Credo che la mia soluzione superi il problema.
Ritengo sia quella ora corretta.
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline allegfede

  • Gran Maestro dei Gamberi
  • *****
  • Post: 738
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #12 il: 31 Dicembre 2020, 13:13:33 »
Ho provato anche
Codice: [Seleziona]
  If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail
:ciao:

secondo me questa e' formalmente piu' corretta
se corri, morirai stanco (motto degli sniper)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.683
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Tutti i giorni alla stessa ora.
« Risposta #13 il: 31 Dicembre 2020, 13:43:24 »
secondo me questa e' formalmente piu' corretta

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

« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »