VB.NET - Convertire un numero in formato ore hh:mm:ss (Codice )
Oggi vi voglio mettere a disposizione una funzione che trasforma Esempio : 1,5 ore nel formato 1:30:00 che conosciamo hh:mm:ss .
Esempio di come richiamare la funzione :
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
Dim risultato As String = ConvertitoreFormatoOra("1,5")Codice della funzione .
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
Function ConvertitoreFormatoOra(ByVal Informazione As String) As String
'Prendo il dato ed estrapolo solo i numeri
Dim numero As Double = Double.Parse(Informazione)
'Tronco il numero ed ottengo le ore e minuti
Dim hour As Integer = System.Math.Truncate(numero)
'Dal numero che ottengo elimino le ore e mi calcolo i minuti effettivi convertiti in 60 secondi
Dim minutes As Double = 60 * (numero - hour)
'Minuti arrotondati
Dim minutes_rounded As Double = System.Math.Truncate(minutes)
'Mi calcolo i secondi e arrotondo
Dim temp_seconds As Double = System.Math.Round(60 * (minutes - minutes_rounded))
'Tronco i secondi
temp_seconds = System.Math.Truncate(temp_seconds)
Dim seconds As String
If temp_seconds = 60 Or temp_seconds = 0.0 Then
minutes_rounded = minutes_rounded + 1
seconds = "00"
Else
seconds = temp_seconds.ToString
End If
'Ecco l'output dell'informazione
Dim hour_format As String = hour.ToString() & ":" & minutes_rounded.ToString() & ":" & seconds
Return hour_format
End Function
By ImaginSystems & Queen Gin