Differenze tra le versioni di "Convertire i secondi in formato ore:minuti:secondi"

Da Gambas-it.org - Wikipedia.
Riga 16: Riga 16:
 
   
 
   
 
   
 
   
−
  '''Public Sub Button1_Click()
+
  '''Public''' Sub Button1_Click()
 
   
 
   
 
   Dim dt2 As Date
 
   Dim dt2 As Date

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.

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Convertire_i_secondi_in_formato_ore:minuti:secondi&oldid=11072"