Convertire i secondi in formato 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".

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