Convertire i secondi in formato ore:minuti:secondi
Il caso è quello in cui, avendo un valore che rappresenta i secondi, si vuole ottenere una conversione nel formato stringa ore:minuti:secondi.
Indice
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. In particolare, nel caso considerato da questa pagina, se i secondi sono superiori al valore "60", bisognerà passare il loro valore all'ultimo parametro della funzione "Date()", quello dei millisecondi ovviamente moltiplicando detto valore per mille.
Il risultato va opportunamente convertito in stringa mediante la funzione "CStr()".
Esempio pratico:
Public Sub Main() Dim secondi As Integer Dim s As String secondi = 12345 s = CStr(Time(0, 0, 0, secondi * 1000)) Print s End
Uso della funzione "Time()"
Più brevemente si potrà usare la funzione "Time()": [nota 1]
Public Sub Main() Dim secondi As Integer Dim s As String secondi = 12345 s = CStr(Time(0, 0, 0, secondi * 1000)) Print s End
Uso della funzione "Format()"
Quest'altra modalità prevede l'uso della funzione "Format()".
Nel secondo parametro di tale funzione va specificato il formato desiderato della rappresentazione oraria, come ad esempio "hh:nn:ss". [nota 2] [nota 3]
La sintassi è la seguente:
Format(Time(ore, minuti, secondi)), "hh:nn:ss") As String
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
Uso dell'operatore Mod
Con l'operatore Mod è possibile convertire i secondi in ore, minuti e restanti secondi.
Mostriamo un esempio:
Public Sub Main() Dim ore, minuti, secondi As Integer secondi = 12345 ore = secondi / 3600 minuti = (secondi Mod 3600) / 60 secondi = (secondi Mod 3600) Mod 60 Print ore; ":"; minuti; ":"; secondi End
Uso di alcune funzioni esterne del API di libglib-2.0
E' possibile, volendo, utilizzare alcune funzioni esterne del API di "libglib-2.0:0.8000.5 ".
Mostriamo un semplice esempio, nel quale si convertirà il valore pari a 3250 secondi nel formato ore:minuti:secondi:
Library "libglib-2.0:0.8000.5" Public Struct GTimeVal tv_sec As Long tv_usec As Long End Struct ' GDateTime * g_date_time_new_from_timeval_utc (const GTimeVal *tv) ' Creates a GDateTime corresponding to the given GTimeVal tv in UTC. Private Extern g_date_time_new_from_timeval_utc(tv As GTimeVal) As Pointer ' gchar * g_date_time_format (GDateTime *datetime, const gchar *format) ' Creates a newly allocated string representing the requested format. Private Extern g_date_time_format(datetime As GTimeVal, gformat As String) As String Public Sub Main() Dim GTv As New GTimeVal Dim dt As Pointer GTv.tv_sec = 3250 dt = g_date_time_new_from_timeval_utc(GTv) Print g_date_time_format(dt, "%kh %Mmin %Ssec") End
Note
[1] Al riguardo vedere anche la seguente pagina della Wiki: Ottenere una data e-o l'orario comprensivo dei millisecondi
[2] Ovviamente si potrà ottenere anche il formato stringa: ore/minuti/secondi.
[3] Al riguardo vedere anche la seguente pagina della Wiki: Formattare "hh:nn:ss" dai soli secondi