Tutti i giorni alla stessa ora.

[kicco]

 
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.
 

[cogier]

Prova questo codice.

Codice: [Seleziona]

Public Sub Timer1_Timer()

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

End

[kicco]

Grazie Cogier!
 

[kicco]

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"
 

[cogier]

Se si esegue il programma allegato, mostra "/ "?

[kicco]

Se si esegue il programma allegato, mostra "/ "?

Sì

[cogier]

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

[kicco]

così funziona!
Potrebbe esser una questione di fuso orario?

[kicco]

Ho provato anche

Codice: [Seleziona]

  If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail

[vuott]

Non capisco perché stia succedendo questo.

Suppongo sia dovuto a questo intervento:

    https://gitlab.com/gambas/gambas/-/commit/93659c3f7eab356b922d5be161990bf888fb3fd8

[kicco]

 
C'è sempre una grande discussione intorno a Date e Time!
Credo che la mia soluzione superi il problema.
Spero!
 

[vuott]

Credo che la mia soluzione superi il problema.

Ritengo sia quella ora corretta.

[allegfede]

Ho provato anche

Codice: [Seleziona]

  If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail

secondo me questa e' formalmente piu' corretta

[vuott]

secondo me questa e' formalmente piu' corretta

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