Wie verwende ich die Funktion Hour in VBA?

In VBA (Visual Basic for Applications) wird die Funktion `Hour` verwendet, um die Stunde aus einem Datum oder einer Uhrzeit zu extrahieren. Diese Funktion gibt einen ganzzahligen Wert zurück, der die Stunde darstellt (von 0 bis 23).

Hier ist ein Beispiel, wie Sie die Funktion `Hour` in VBA verwenden können:

Sub BeispielFuerHourFunktion()
    Dim meinDatum As Date
    Dim stunde As Integer
    
    ' Beispiel: Ein festes Datum und Uhrzeit festlegen
    meinDatum = #10/21/2023 15:30:00#
    
    ' Die Stunde aus dem Datum extrahieren
    stunde = Hour(meinDatum)
    
    ' Das Ergebnis anzeigen
    MsgBox "Die Stunde ist: " & stunde
End Sub

In diesem Beispiel:

Eine Datum/Uhrzeit-Variable (`meinDatum`) wird mit einem bestimmten Datum und einer bestimmten Uhrzeit initialisiert.
Die `Hour`-Funktion wird verwendet, um die Stunde aus diesem Datum zu extrahieren.
Das Ergebnis wird in einer Meldungsbox angezeigt.

Sie können die Funktion `Hour` auch auf die aktuelle Uhrzeit anwenden, indem Sie die `Now`-Funktion verwenden:

Sub AktuelleStunde()
    Dim aktuelleStunde As Integer

    ' Aktuelle Stunde ermitteln
    aktuelleStunde = Hour(Now)

    ' Ergebnis anzeigen
    MsgBox "Die aktuelle Stunde ist: " & aktuelleStunde
End Sub

In diesem Fall wird die Funktion `Now` verwendet, um das aktuelle Datum und die aktuelle Uhrzeit zu erhalten, und die `Hour`-Funktion extrahiert die Stunde daraus.

facebooklinkedin