Standard tid kan omvandlas till decimal tid med Visual Basic : s inbyggda funktioner . Visual Basic fungerar med både datum och tid tillsammans . Det är inte möjligt att separera datum och tid i två olika oberoende värden som kan manipuleras separat. Detta innebär att det inte finns en enda inbyggd funktion som kommer att utföra uppgiften att omvandla tiden , exklusivt . Det är dock fortfarande möjligt att göra konverteringen med hjälp av Visual Basic : s inbyggda funktioner i kombination med en enda rad av beräkning . Instruktioner
1
Store den tid som du vill ha i en variabel . Visual Basic har en DateTime Data typ som används för att representera datum-och tidsvärden , som beskrivs i " Murach Visual Basic 2008 . " Använd Visual Basic s Dim kommando för att förklara den tid som följer : Dim DateOne Som DateTime = # 03:15:30 # Datum och tid representeras som ett par , vilket innebär att om du inte anger ett datum eller tid Visual Basic kommer att ersätta referensvärden som representerar den minsta datum eller tid . Visual Basic : s startdatum är 12:00 1 januari 0001 . Till exempel, om du skrev ovan initieras variabeln till skärmen , skulle du få '1 /01 /0001 03:15:30 ' .
2
Konvertera DateTime variabeln till en decimal datum och tid använda den inbyggda funktionen ToOADate ( ) . Denna inbyggda funktion kommer att omvandla tid till en dubbel datatyp. Besök http://msdn.microsoft.com för mer information . Till exempel , är koden för att konvertera en DateTime variabel till en dubbel : Dim á Datum Som DateTime = # 03:15:30 # Dim DbleTime Som Double = ADate.ToOADate ( ) Console.WriteLine ( DbleTime ) Detta ger följande decimal datum och tid : '0 0,1357638 ... " Addera 3
Extrahera normaltid från denna flytande värde genom att multiplicera värdet till höger om decimaltecknet med 24 med följande kod : DbleTime * 24The resultat för detta exempel ska vara 3,25833 .
