|
Dim secondi, secondi1 As Double
secondi = 0 secondi1 = 0 secondi = CDbl(TxtOre.Text) * 3600 + CDbl(TxtMinuti.Text) * 60 + CDbl(txtSecondi.Text) secondi1 = CDbl(Hour(Now)) * 3600 + CDbl(Minute(Now)) * 60 + CDbl(Second(Now)) If secondi < secondi1 Then tot = 8e'99 - secondi1 + secondi Else tot = secondi - secondi1 End If h = tot \ 3600 m = CInt((tot Mod 3600) \ 60) s = CInt((tot Mod 3600) Mod 60) 'al posto delle tre istruzioni precedenti si poteva usare 'l'istruzione Format.... If h = 0 And m = 0 And s = 0 Then 'Ecco l'ora X :-) End If 'Se invece si vuole che l'ora X scatti non AD una 'determinata ora, ma TRA un determinato numero di ore, 'minuti, secondi, basta sommare l'ora attuale piu' 'l'intervallo e comportarsi allo stesso modo. 'es: 'se si deve far scattare l'ora X tra 1 ora, 10 minuti e 15 'secondi, basta impostare l'ora X alle '(hour(now) +1) ore, (minute(now)+10) minuti, '(second(now)+15) secondi Si crea in un form tre textbox, una per le ore, una per i minuti, una per i secondi in cui "scattera' l'ora X", chiamate rispettivamente txtOre, txtMinuti, txtSecondi, |