【VBA】8桁の数字から、日付の変換と曜日を求める方法
今回は、8桁の数字から、日付の変換と曜日を求める方法です。
↓実演動画
https://youtu.be/uatMG42tjQg
ソースコードは下記の通りです。
Sub 日付の変換と曜日計算()
' 日付の変換
Cells(2, 2) = DateValue(Format(Cells(2, 1), "0000/00/00"))
' 日付から曜日を求める
Cells(2, 3) = Format(Cells(2, 2), "aaaa")
End Sub
詳細を説明します。
Cells(2, 2) = DateValue(Format(Cells(2, 1), "0000/00/00"))
DateValue関数は、文字列を日付に変換する関数です。
Format関数は、値を指定した形式の文字列に変換してる関数です。
第1引数には対象の値、第2引数には、指定したいフォーマットになります。
DateValue関数の詳細はこちら
https://www.tipsfound.com/excel/04datevalue
Format関数の詳細はこちら
https://www.tipsfound.com/vba/05format
Cells(2, 3) = Format(Cells(2, 2), "aaaa")
日付の変換が完了したら、その値から曜日を求めます。
曜日を求めるにも、Format関数を使用します。
今回は、「〇曜日」と表示したいため、第2引数には"aaaa"を指定することで、
正しく表示されました。
フォーマットの種類については、以下のサイトが参考になると思います。
https://www.sejuku.net/blog/33422
以上が、8桁の数字から、日付の変換と曜日を求める方法でした。
Author And Source
この問題について(【VBA】8桁の数字から、日付の変換と曜日を求める方法), 我々は、より多くの情報をここで見つけました https://qiita.com/RuruVba/items/6480add3309f6bef610e著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .