【VBA】8자리 숫자에서 날짜 변환과 요일을 구하는 방법

이번에는 8자리 숫자에서 날짜 변환과 요일을 구하는 방법입니다.

샘플 데이터는 아래 그림을 참조하십시오.


↓실연 동영상
htps: //같다. 베/우아 tMG42tjQg

소스 코드는 아래와 같습니다.

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 함수는 값을 지정된 형식의 문자열로 변환하는 함수입니다.
첫 번째 인수는 대상 값이고 두 번째 인수는 지정하려는 형식입니다.

DateValue 함수에 대해 자세히 알아보기
htps //w w. 치 ps 후응 d. 이 m / x x l / 04입니다.

Format 함수에 대한 자세한 내용은 여기
htps //w w. 치 ps 후응 d. 코 m / v 바 / 05 푸마 t

Cells(2, 3) = Format(Cells(2, 2), "aaaa")

날짜 변환이 완료되면 해당 값에서 요일을 찾습니다.
요일을 찾으려면 Format 함수를 사용하십시오.

이번은, 「0요일」이라고 표시하고 싶기 때문에, 제2 인수에는 "aaaa"를 지정하는 것으로,
올바르게 표시되었습니다.

포맷의 종류에 대해서는, 이하의 사이트가 참고가 된다고 생각합니다.
htps //w w. 세주쿠. 네 t/bぉg/33422

이상이 8자리 숫자에서 날짜 변환과 요일을 구하는 방법이었습니다.