指定した時・分・秒をそれぞれ取得する【Hour関数/Minute関数/Second関数】【ExcelVBA】

構文
Hour/Minute/Second関数のサンプルコード
注意点
関連記事

構文

Hour 　時のみ取得
Minute　分のみ取得
Second 　秒のみ取得

指定した値から時、分、秒を分けて取得します。
戻り値は全て数値型(Integer)です。

Hour/Minute/Second関数のサンプルコード

Public Sub sample_Hour_Minute_Second()

    Dim str As String: str = "2021/02/23 12:01:00"

    '■通常の使い方
    Debug.Print Hour(str)       '12
    Debug.Print Minute(str)     '1
    Debug.Print Second(str)     '0

    '■Format関数でも同様結果取得可能
    Debug.Print Format(str, "h")   '12
    Debug.Print Format(str, "n")   '1
    Debug.Print Format(str, "s")   '0
    
    
    '■日付データのみの場合は"00:00:00"と時刻の初期値を取得
    str = "2022/2/23"
    
    Debug.Print Hour(str)       '0
    Debug.Print Minute(str)     '0
    Debug.Print Second(str)     '0
    
    '■時刻データと判断できれば正常に返ってくる
    Debug.Print Hour("12時5分")       '12
    
    
    '■Date型のデータ以外はエラー
    '実行時エラー13 型が一致しません
    Debug.Print Hour("１２じ５ふん")
    Debug.Print Minute("abc")
    Debug.Print Second("")
    
End Sub