Zeit 2 : Wie lange dauert es noch bis zur Geisterstunde Zurück
Dieses Miniprogramm errechnet die verbleibende Zeit bis Mitternacht. Es verwendet die Timer funktion von Visual Basic.
Hinter dem Befehl Zeit bis zur Geisterstunde steht folgender Code:
Sub Befehl1_Click ()
Dim HourDiff, MinuteDiff, Msg, SecondDiff ' Variablen deklarieren
Dim Instant, Midnight, TotalMinDiff, TotalSecDef
Midnight = TimeValue("23:59:59")
Instant = Now ' Aktuelle Zeit.
HourDiff = Hour(Midnight) - Hour(Instant) ' Differenz.
MinuteDiff = Minute(Midnight) - Minute(Instant)
SecondDiff = Second(Midnight) - Second(Instant) + 1
If SecondDiff = 60 Then
End If
If MinuteDiff = 60 Then
End If
TotalMinDiff = (HourDiff * 60) + MinuteDiff ' Summe errechnen
TotalSecDiff = (TotalMinDiff * 60) + SecondDiff
TotalDiff = TimeSerial(HourDiff, MinuteDiff, SecondDiff)
rem Ausgabe des Ergebnisses
End Sub
Verwendete Befehle: Now TimeValue TimeSerial
Now-Funktion
Liefert das aktuelle Datum und die aktuelle Uhrzeit gemäß der Einstellung von Systemdatum und Systemzeit Ihres Computers.
Syntax Now
Anmerkungen
Die Now-Funktion liefert ein Datum und eine Uhrzeit im Varianttyp 7 (Datum) des Variant-Datentyps. Diese werden intern als eine Zahl mit doppelter Genauigkeit (Double) gespeichert. Diese Zahl steht für ein Datum und eine Uhrzeit vom 1. Januar 100 bis zum 31. Dezember 9999, wobei der 1. Januar 1900 gleich 2 ist. Zahlen links vom Dezimalzeichen stehen für das Datum, Zahlen rechts davon stehen für die Uhrzeit.
Hinweis Wenn direkt angezeigt, wird der Rückgabewert der Now -Funktion als Zeichenfolge dargestellt, wobei Datums- und Zeit-Kurzformate verwendet werden, die in der Microsoft Windows-Systemsteuerung festgelegt sind.
Liefert die Uhrzeit, die durch ein Zeichenfolgenargument dargestellt wird.
Syntax
TimeValue(Zeichenfolgenausdruck)
Anmerkungen
Das Zeichenfolgenausdruck-Argument stellt eine Uhrzeit aus dem Bereich von 0:00:00 bis 23:59:59 dar. Sie können gültige Uhrzeiten entweder im Stil der 12-Stunden-Uhr oder der 24-Stunden-Format eingeben. So sind sowohl 2:24 PM als auch 14:24 gültige Zeitformate.
In Zeichenfolgenausdruck enthaltene Datumsangaben werden von TimeValue ignoriert. Enthält Zeichenfolgenausdruck jedoch eine unzulässige Datumsangabe, tritt ein Fehler auf.
Die TimeValue-Funktion liefert eine Uhrzeit im Varianttyp 7 (Datum) des Variant -Datentyps, die intern als Dezimalzahl mit doppelter Genauigkeit (Double) zwischen 0 und 0,99999 gespeichert wird. Diese Zahl steht für eine Uhrzeit zwischen 0:00:00 und 23:59:59.
Liefert den fortlaufenden Zeitwert für eine bestimmte Uhrzeit (in Stunden, Minuten und Sekunden).
Syntax TimeSerial(Stunde, Minute, Sekunde)
Anmerkungen
Die TimeSerial-Funktion verwendet die folgenden Argumente:
Argument Beschreibung
Stunde Eine Stundenangabe zwischen 0 (Mitternacht) und 23 (23:00) oder ein numerischer Ausdruck
Minute Eine Minutenangabe zwischen 0 und 59 oder ein numerischer Ausdruck
Sekunde Eine Sekundenangabe zwischen 0 und 59 oder ein numerischer Ausdruck
Um eine bestimmte Uhrzeit auszudrücken (z.B. 11:59:59), sollte der Zahlenbereich für jedes TimeSerial-Argument innerhalb des jeweils zulässigen Bereichs liegen. Dabei handelt es sich um die Werte 0 bis 23 für Stunden bzw. 0 bis 59 für Minuten und Sekunden. Sie können für jedes Argument auch relative Uhrzeitangaben festlegen, indem Sie einen numerischen Ausdruck verwenden, der für die Anzahl der Stunden, Minuten oder Sekunden vor oder nach einer bestimmten Uhrzeit steht. Im folgenden Beispiel werden anstelle absoluter Zeitangaben Ausdrücke verwendet. Die TimeSerial-Funktion erzeugt eine Uhrzeit, die 15 Minuten (0 - 15) und sechs Stunden vor Mittag (12 - 6) liegt, also 5:45:00 Uhr.
ZeitSeriell(12 - 6; 0 - 15; 0)
Die TimeSerial-Funktion liefert eine Uhrzeit im Varianttyp 7 (Datum) des Variant-Datentyps, die intern als Dezimalzahl mit doppelter Genauigkeit (Double) zwischen 0 und 0,99999 gespeichert wird. Diese Zahl steht für eine Uhrzeit zwischen 0:00:00 und 23:59:59.
Wenn die Uhrzeit, die entweder direkt oder über einen Ausdruck durch drei Argumente angegeben wird, außerhalb des zulässigen Uhrzeitenbereichs liegt, tritt ein Fehler auf.