Differenze tra le versioni di "Convertire i secondi in formato ore:minuti:secondi"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Il caso è quello in cui, avendo un valore che rappresentano i secondi di un tempo, si vuole ottenere una conversione nel formato stringa ''ore:minuti:secondi". La sintassi è la segu...) |
|||
| Riga 1: | Riga 1: | ||
| − | Il caso è quello in cui, avendo un valore che rappresentano i secondi di un tempo, si vuole ottenere una conversione nel formato stringa ''ore:minuti:secondi". | + | Il caso è quello in cui, avendo un valore che rappresentano i secondi di un tempo, si vuole ottenere una conversione nel formato stringa ''ore:minuti:secondi". |[[#Note|1]]| |
La sintassi è la seguente: | La sintassi è la seguente: | ||
| Riga 24: | Riga 24: | ||
<FONT color=#006400>' ''Viene calcolata la differenza fra i due tempi e viene espressa in secondi;'' | <FONT color=#006400>' ''Viene calcolata la differenza fra i due tempi e viene espressa in secondi;'' | ||
' ''poi quel risultato viene convertito nel formato stringa impostato:''</font> | ' ''poi quel risultato viene convertito nel formato stringa impostato:''</font> | ||
| − | Print Format(Time(0, 0, DateDiff(dt1, dt2, gb.Second)), "hh | + | Print Format(Time(0, 0, DateDiff(dt1, dt2, gb.Second)), "hh:nn:ss") |
'''End''' | '''End''' | ||
| + | |||
| + | |||
| + | |||
| + | =Note= | ||
| + | [1] Ovviamente si potrà ottenere anche il formato stringa: ''ore/minuti/secondi''. | ||
Versione delle 16:56, 17 feb 2013
Il caso è quello in cui, avendo un valore che rappresentano i secondi di un tempo, si vuole ottenere una conversione nel formato stringa ore:minuti:secondi". |1|
La sintassi è la seguente:
Format(Time(ore, minuti, secondi)), "hh:nn:ss")
Nel seguente esempio verranno mostrati i secondi passati dall'apertura del programma alla pressione sul Button:
Private dt1 As Date Public Sub Form_Open() dt1 = Time(Now) End Public Sub Button1_Click() Dim dt2 As Date dt2 = Time(Now) ' Viene calcolata la differenza fra i due tempi e viene espressa in secondi; ' poi quel risultato viene convertito nel formato stringa impostato: Print Format(Time(0, 0, DateDiff(dt1, dt2, gb.Second)), "hh:nn:ss") End
Note
[1] Ovviamente si potrà ottenere anche il formato stringa: ore/minuti/secondi.
