【VBA】 現在日付を YYYYMMDD 形式で取得する

現在日付を YYYYMMDD 形式で取得する関数です。

関数概要

• 関数名： FNCGetYYYYMMDD
• 入力引数； ありません。
• 出力引数： ありません。
• 返り値：現在日付をYYYYMMDD形式で返却します。エラーが発生した場合は「Error」がセットされます。

ソースコード

    '-----------------------------------------------------------------
    ' 現在日付を YYYYMMDD 形式で取得する
    '-----------------------------------------------------------------
    Function FNCGetYYYYMMDD() As String
    On Error GoTo ErrorHandler
        FNCGetYYYYMMDD = Format(Now, "yyyyMMdd")
        Exit Function
    ErrorHandler:
        MsgBox Err.Number & : & Err.Description, vbCritical, エラー
        FNCGetYYYYMMDD = "Error"
        Exit Function
    End Function

使用方法

    MsgBox(FNCGetYYYYMMDD())

ソースコード説明

Format関数で、日付を「yyyyMMdd」形式に変換します。

Format関数の第一引数にセットしているNowは、現在日付時刻が入ります。

このFormat関数の返り値を関数FNCGetYYYYMMDDの返り値にセットします。

On Error GoTo ErrorHandlerで、エラーが発生した場合に「ErrorHandler」へ飛ぶように定義します。

「ErrorHandler」では、エラー情報をメッセージボックスで表示し、関数の返り値に「Error」をセットして終了します。