Standard tid kan omdannes til decimal tid ved hjælp af Visual Basic s indbyggede funktioner . Visual Basic arbejder med både dato og tid sammen. Det er ikke muligt at adskille dato og tid i to forskellige selvstændige værdier, der kan manipuleres separat. Det betyder, at der ikke er nogen enkelt indbygget funktion , der skal udføre opgaven med at konvertere tiden, udelukkende. Men det er stadig muligt at gøre konverteringen ved hjælp af Visual Basic indbyggede funktioner i kombination med en enkelt linje beregning. Instruktioner
1
Store den tid, du ønsker i en variabel. Visual Basic har en DateTime data type, som bruges til at repræsentere Dato og tid værdier , som er beskrevet i " Murach Visual Basic 2008. " Brug Visual Basic s Dim kommando til at erklære den tid som følger: Dim DateOne Som DateTime = # 3:15:30 # Dato og tid er repræsenteret som et par, hvilket betyder, hvis du ikke giver en dato eller tid Visual Basic vil erstatte referenceværdierne repræsenterer den mindste dato eller tid. Visual Basic er startdato er 12:00 1 januar 0001 . For eksempel, hvis du har udskrevet ovenstående initialiseret variabel til skærmen vil du få '1 /01/0001 03:15:30 ' .
2
Konverter DateTime variabel ind i en decimal dato og tid ved hjælp af indbyggede funktion ToOADate (). Denne indbyggede funktion konverterer tid til en dobbelt datatype. Besøg http://msdn.microsoft.com for mere information . For eksempel er koden til at konvertere en DateTime variabel i en dobbelt : Dim ADate Som DateTime = # 3:15:30 # Dim DbleTime Som Double = ADate.ToOADate () Console.WriteLine ( DbleTime ) Dette giver følgende decimal dato og tid: '0 0,1357638 ... '
3
Uddrag standard tid fra denne flydende værdi ved at multiplicere værdien til højre for decimaltegnet med 24 med følgende kode : DbleTime * 24The resultat for dette eksempel bør være 3,25833 .