VBA CDATE | Excel VBA에서 CDATE를 사용하는 방법? (예제 포함)

VBA의 CDATE 함수

VBA CDATE는 텍스트 또는 문자열 인 데이터 유형을 날짜 데이터 유형으로 변환하는 데이터 유형 변환 함수입니다. 값이 날짜 데이터 유형으로 변환되면 날짜 항목을 가지고 놀 수 있습니다.

CDATE 구문

다음은 VBA의 CDATE 함수 구문입니다.

표현식 : 표현식은 문자열 또는 텍스트 값이거나 날짜 데이터 유형으로 변환 할 값을 포함하는 변수 일 수 있습니다.

CDATE는 작업중인 컴퓨터의 날짜 및 시간 형식을 식별하고 제공된 값을 동일한 날짜 데이터 유형으로 변환합니다. 일과 월만 제공하고 연도를 무시하면 CDATE 함수는 시스템 연도를 가져와 제공된 일과 월과 함께 표시합니다.

아래 섹션에서 더 많은 예제를 볼 수 있습니다.

Excel VBA에서 CDATE 함수를 사용하는 방법은 무엇입니까?

Excel vba의 CDATE 함수 예

이 VBA CDATE Excel 템플릿은 여기에서 다운로드 할 수 있습니다 – VBA CDATE Excel 템플릿

예 1

CDATE의 예를 보여 드리기 전에 먼저 아래 코드를 살펴보십시오.

암호:

 Sub CDATE_Example1 () Dim k As String k = "25-12"MsgBox k End Sub 

위의 변수 "k"에 대해 값을 "25-12"로 할당했습니다. 이 코드를 실행하면 VBA의 메시지 상자에 동일한 값이 표시됩니다.

그러나 이것은 VBA CDATE 함수를 사용하여 날짜로 변환 할 수 있습니다. 이를 위해 하나 이상의 변수를 Date로 정의하십시오.

암호:

 Dim k1 As Date 

이 변수 "k1"에 대해 CDATE 함수를 할당하고 문자열 "25-12"를 보유하는 변수 "k"를 제공합니다. 그리고 메시지 상자에는 "k"대신 "k1"의 변수 값이 표시됩니다.

암호:

k1 = CDate (k)

이제 코드를 실행하고 메시지 상자에서 결과를 확인합니다.

따라서 결과는“12/25/2019”입니다.

우리가 제공 한 가치를 면밀히 살펴보면, 우리는 연도를 제공하지 않은“25-12”를 제공했습니다.

내 시스템에서이 기사를 작성하는 동안 올해는 2019 년 이었으므로 VBA CDATE는 문자열 값 "25-12"를 날짜로 변환하고 여기에 시스템 연도 2019를 추가했습니다. 따라서 최종 결과는 2019 년 12 월 25 일 즉 2019 년 12 월 25 일과 같이 표시됩니다.

예제 # 2

이제 아래 코드를보세요.

암호:

 Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub 

변수 "k"에 대한 위 코드에서 숫자 "43889"를 적용했습니다. 우리 모두는 이것이 일련 번호라는 것을 알고 있지만 다른 변수 "KResult"의 경우 "CDATE"함수를 사용하여이 값을 날짜로 변환했습니다.

메시지 상자에 표시된 변수 "kResult"의 동일한 결과입니다.

코드를 실행하고 "CDATE"함수의 마법을 확인하십시오.

결과가 "2/28/2020"으로 표시됩니다. Excel에서 날짜에 익숙하지 않은 경우 어떻게 이런 일이 발생했는지 궁금 할 것입니다.

예를 들어 스프레드 시트의 셀 중 하나에 같은 숫자 (43889)를 입력합니다.

이를 위해 "DD-MM-YYYY"형식을 적용합니다.

이제 확인을 클릭하고 결과를 확인하십시오.

이제 결과는 일련 번호에서 현재까지 변경되었습니다. 일련 번호 위에 날짜 형식을 적용했기 때문에 해당 날짜를 표시했습니다.

따라서 일련 번호 43889가 2020-02-28 날짜와 동일 함을 의미합니다.

따라서 VBA 코드에서 CDATE 함수는 문자열 값을 날짜 데이터 유형으로 변환하여 동일한 작업을 실행했습니다.

예제 # 3

이 예에서는 아래 코드를 살펴보십시오.

 Sub CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "2019 년 12 월 24 일"Value2 = # 6 / 25 / 2018 # Value3 = "18:30:48 PM"MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( 값 3) End Sub 

이 코드를 실행하면 아래와 같은 결과를 얻을 수 있습니다.

따라서 모든 값은 CDATE 함수를 사용하여 날짜 데이터 유형으로 변환됩니다.

기억해야 할 사항

  • CDATE는 숫자와 문자열 값만 날짜 데이터 유형으로 변환합니다.
  • 다른 기능과 함께 사용할 때 유용합니다.
  • 잘못된 데이터 유형 값이 제공되면 유형 불일치 오류가 발생합니다.
  • 날짜와 시간은 일련 번호의 일부이기 때문에 시간과 적절한 시간을 변환합니다.