Excel VBA 8桁(例: YYYYMMDD形式)を日付に変換するDateValue関数

 

Excel VBAの DateValue関数は、8桁の数字(例: YYYYMMDD形式)を日付に変換する使い方や、注意点やサンプルコードを紹介します。

 

基本的な文法やVBAの実践的な応用までを網羅的に学習できる方法は、ExcelVBAエキスパート資格の取得を目指すこと。学習を通して、より効率的に、着実に基礎を身につけることが可能です。資格取得すれば、スキルの証明にもなり、職場での評価アップにも繋がるため、勉強を進めるモチベーションにもなります。
本サイト参考:マクロ知識がないから「何から学べば良いのかわからない」という人におすすめの記事

 

Excel VBA 8桁を日付に変換するDateValue関数の利用

以下のようなシーンで利用されます。

・ファイルやデータベースで日付を8桁の数字として格納している場合。

・外部からのデータ受信時に、8桁の数字形式で日付が提供される場合。

 

ポイント

DateValue関数は、一部の国設定によっては日付の解釈が異なる可能性があるため注意が必要です。

 

Excel VBA 8桁を日付に変換するDateValue関数サンプルコード
Option Explicit

Sub ConvertToDateTimeWithDateValue()
    ' 8桁の数字(YYYYMMDD形式)を日付に変換(DateValue関数)
    Dim eightDigitNumber As String
    eightDigitNumber = "20240125" ' YYYYMMDD形式の8桁の数字

    ' 8桁の数字をDateValue関数で日付に変換
    Dim convertedDate As Date
    convertedDate = DateValue(Left(eightDigitNumber, 4) & "/" & Mid(eightDigitNumber, 5, 2) & "/" & Right(eightDigitNumber, 2))

    ' 結果を表示
    MsgBox "変換された日付: " & convertedDate
End Sub

サンプルコードは、DateValue関数を使用して8桁の数字を日付に変換しています。Left、Mid、Right関数を使用して、数字を年月日に分割し、DateValue関数に渡しています。

Excel VBAで自動化するコードのベースを習得したい方におすすめ!

VBAエキスパート資格は、日常業務でExcelを多用し、手動作業を減らしたいと考えている方には価値あるものです。

ExcelVBAエキスパートベーシック
仕事の効率をあげるためにExcelVBAを利用する人が対象の問題集です。


ExcelVBAエキスパートスタンダード

ExcelVBAの開発を仕事にする人が対象の問題集です。

 

Excel  VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。