• 
  

  Hur konvertera normaltid till decimal tid med Visual Basic

  
  

Standard tid kan omvandlas till decimal tid med hjälp av Visual Basic : s inbyggda funktioner . Visual Basic arbetar med både datum och tid tillsammans . Det är inte möjligt att separera datum och tid i två olika oberoende värderingar som kan manipuleras separat . Detta innebär att det inte finns en enda inbyggd funktion som kommer att utföra uppgiften att omvandla tiden , uteslutande . 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 beräkning .
1 .
Store den tid som du vill ha i en variabel . Visual Basic har datatypen datetime , som används för att representera datum och tid , vilket 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 är representerade som ett par , vilket innebär att om du inte t ger ett datum eller tid Visual Basic kommer att ersätta referensvärden som representerar den minsta datum eller tid . Visual Basic är startdatum är 12:00 1 januari 0001 . Till exempel , om du skrev ut ovan initieras variabeln till skärmen , skulle du få 1 /01/0001 03:15:30 " .
2 .
Konvertera DateTime variabeln i en decimal datum och tid med hjälp av den inbyggda funktionen ToOADate () . Detta inbyggd funktion konverterar tiden till en dubbel datatyp . Besök http://msdn. microsoft. com för mer information. För att till exempel koden konvertera en DateTime variabel i en dubbel är :
Dim ADate Som DateTime=# 03:15:30 #
Dim DbleTime som dubbel=ADate . ToOADate ( )
Console. WriteLine ( DbleTime )
Detta ger följande decimala datum och tid: .
Ɔ 0,1357638 . . . '

3
Extrahera normaltid från denna flytande värde genom att multiplicera värdet till höger om decimalkommat med 24 med följande kod : .
DbleTime * 24
Resultatet för detta exempel bör 3,25833

 

tips och varningar


 

• Om du också vill extrahera minuter och sekunder i decimalform , sedan multiplicera siffran till höger om decimaltecknet i tid med 60 för att få minuter och multiplicera siffran till höger om decimaltecknet i protokollet med 3600 för att få sekunder . Som ett alternativ ger Visual Basic DatumDel () -funktionen som utvinner timme , minuter och sekunder , som kan omvandlas till decimalform som följer:
• Dim TheMinute som dubbel=CDbl ( DatumDel ( DateInterval. Minute , DateOne )) /60,0
• Dim TheSecond som dubbel=CDbl ( DatumDel ( DateInterval. Second , DateOne ) ) /3600,0

37 38 39 40 41 42

Previous：nothing Next：hur man använder flera namnrymder

Relaterade artiklar