Wie Konvertieren von Normalzeit in Dezimalzeit mit Visual Basic

April 17

Normalzeit kann in Dezimalzeit mit integrierten Visual Basic-Funktionen umgewandelt werden. Visual Basic funktioniert zusammen mit Datum und Uhrzeit. Es ist nicht möglich, das Datum und die Uhrzeit in zwei verschiedene unabhängige Werte zu trennen, die separat bearbeitet werden können. Dies bedeutet, dass es keine einzige integrierte Funktion, die die Aufgabe der Umwandlung zur Zeit ausschließlich. Allerdings ist es noch möglich, die Konvertierung mithilfe von Visual Basic integrierten Funktionen in Kombination mit einer einzelnen Zeile der Berechnung durchzuführen.

Anweisungen

1 Speichern Sie gewünschten Zeitpunkt in einer Variablen. Visual Basic hat einen DateTime-Datentyp dient zur Darstellung von Datums- und Uhrzeitwerten, wie beschrieben in "Murachs Visual Basic 2008." Verwenden Sie die Visual-Basic-Dim-Befehl, um zur Zeit wie folgt deklarieren:Dim DateOne As DateTime = # 03:15:30Das Datum und die Uhrzeit werden als ein paar dargestellt, was bedeutet, wenn Sie nicht angeben, dass ein Datum oder eine Uhrzeit Visual Basic Referenzwerte, darstellt, der kleinste Datum / Zeit ersetzt werden. Visual Basic Startdatum ist 12:00 AM 1. Januar 0001. Zum Beispiel, wenn Sie die oben genannten initialisierte Variable auf dem Bildschirm gedruckt, Sie würde erhalten 1/01/0001 03:15:30 '.

2 Wandeln Sie die DateTime-Variablen in Dezimal Datum und Uhrzeit mithilfe der integrierten Funktion ToOADate(). Diese integrierte Funktion konvertieren die Zeit zu einem double-Datentyp. Besuchen Sie http://msdn.microsoft.com für weitere Informationen. Beispielsweise ist der Code eine DateTime-Variablen in Double konvertieren:Dim CDatum als DateTime = # 03:15:30Dim DbleTime As Double = ADate.ToOADate()Console.WriteLine(DbleTime)Dies führt zu folgenden Dezimalzahlen Datum und Uhrzeit:'0.1357638...'

3 Extrahieren Sie die Standardzeit aus dieser veränderlicher Wert multipliziert den Wert rechts neben dem Dezimaltrennzeichen 24 mit dem folgenden Code:

DbleTime * 24Das Ergebnis in diesem Beispiel sollte 3.25833 sein.

Tipps & Warnungen

  • Wenn Sie die Minuten und Sekunden im dezimalen Format extrahieren möchten, dann multiplizieren Sie die Zahl rechts vom Dezimaltrennzeichen in der Zeit von 60 man die Minuten und multiplizieren die Zahl rechts vom Dezimaltrennzeichen in den Minuten mit 3600 um die Sekunden zu erhalten. Als Alternative bietet Visual Basic Funktion DatePart(), die extrahiert die Stunden, Minuten und Sekunden, die wie folgt in Dezimal-Format umgewandelt werden können:
  • Dim TheMinute As Double = CDbl (DatePart (DateInterval.Minute, DateOne)) / 60.0
  • Dim TheSecond As Double = CDbl (DatePart (DateInterval.Second, DateOne)) / 3600.0