Visualizza wikitesto di Convertire i millisecondi in formato minuti:secondi.millisecondi

Se si posseggono i millisecondi di un tempo, volendoli convertire in formato ''minuti:secondi.millisecondi'', si potranno adottare alcune modalità.

==Uso della funzione ''Date( )''==
Come è noto, la funzione ''Date( )'' restituisce un valore temporale di tipo ''Date'' dai dati passati ad uno o più dei suoi parametri. il valore dei millisecondi va  pasato all'ultimo parametro della funzione ''Date( )''.
<BR>Il risultato va opportunamente convertito in stringa mediante la funzione ''CStr( )''.

Esempio pratico:
 '''Public''' Sub Main()
 
  Dim millisecondi As Integer
  Dim s As String
     
   millisecondi = 12345
   
   s = CStr(Date(0, 0, 0, 0, 0, 0, millisecondi))
  
   Print s
  
 '''End'''


==Uso della funzione ''Format( )''==
Quest'altra modalità prevede l'uso della funzione ''Format( )''.
<BR>Nel secondo parametro di tale funzione va specificato il formato desiderato della rappresentazione oraria, come ad esempio "''nn:ss<FONT Color=red>.uu</font>''".


La sintassi è la seguente:
 Format(millisecondi, "nn:ss.uu") As String
Esempio:
 '''Public''' Sub Main()
 
   Print Format(Date(0, 0, 0, 0, 0, 0, 456.789 * 1000), "nn:ss.uu")
 
 '''End'''


==Uso dell'operatore ''Mod''==
Con l'operatore ''[http://gambaswiki.org/wiki/lang/mod?l=it Mod]'' è possibile convertire (come considerato da questa pagina) i millisecondi in ''minuti'', secondi e restanti ''millisecondi''.


Mostriamo un esempio:
 '''Public''' Sub Main()
  
  Dim minuti, secondi, millisecondi As Integer
    
   millisecondi = 654321
   
   minuti = ((millisecondi \ 1000) Mod 3600) / 60
   secondi = ((millisecondi \ 1000) Mod 3600) Mod 60
   millisecondi = millisecondi Mod 1000
   
   Print minuti; ":"; secondi; "."; millisecondi
   
 '''End'''