Imaginsystems


Tecniche di Programmazione - Codici Sorgenti - News Informatiche
Archivio Posts
Anno 2014

Anno 2013

Anno 2012
Statistiche
  • Views Home Page: 54.828
  • Views Posts: 418.205
  • Views Gallerie: 0
  • n° Posts: 210
  • n° Commenti: 224

VB.NET - Convertire un numero in formato ore hh:mm:ss (Codice)

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   

Categoria: VB.NET
giovedì, 11 lug 2013 Ore. 10.38

Messaggi collegati


Ora e Data
Mappa
Blogs Amici
    Copyright © 2002-2007 - Blogs 2.0
    dotNetHell.it | Home Page Blogs
    ASP.NET 2.0 Windows 2003