엑셀 VBA 함수 Date 현재 날짜 반환하기

VBA에서 Date 함수는 현재 시스템 날짜를 반환하는 함수입니다. 함수는 날짜 형식의 값을 생성하여 현재 날짜를 나타냅니다. [Date] 함수를 사용하면 현재 날짜를 손쉽게 가져와서 날짜와 시간 관련 작업을 수행할 수 있으며, 필요에 따라 날짜 형식을 지정하여 표시할 수 있습니다. 아래에서 [Date] 함수의 개념, 구문, 예제, 실행 결과 및 소스 설명을 설명하겠습니다.

 

 

 

◎ 구문

 

현재 날짜를 반환하는 Date 함수는 인수가 필요하지 않습니다.

 

Date

 

 

◎ 예제 1: 현재 날짜 표시

 

예제에서는 [Date] 함수를 사용하여 현재 날짜를 가져옵니다. 현재 날짜를 변수에 저장한 다음 메시지 상자를 통해 날짜를 표시합니다.

 

Sub ShowCurrentDate()
    Dim currentDate As Date
    currentDate = Date
 
    MsgBox "현재 날짜: " & currentDate, vbInformation, "날짜 표시"
End Sub

 

 

 

◎ 예제 2: 날짜 연산

 

예제에서는 [Date] 함수를 사용하여 현재 날짜를 가져온 다음, 30일 후의 날짜를 계산합니다. [DateAdd] 함수를 사용하여 현재 날짜에 30일을 더하여 미래 날짜를 계산하고 메시지 상자에 표시합니다.

 

DateAdd 함수에 대한 사용법은 아래를 참고하세요.

https://mainia.tistory.com/7016

엑셀 VBA 함수 DateAdd 날짜에 시간, 일 더하거나 빼기

  

Sub DateOperations()
    Dim today As Date
    today = Date
 
    Dim futureDate As Date
    futureDate = DateAdd("d", 30, today)
 
    MsgBox "현재 날짜: " & today & vbCrLf & "30일 후 날짜: " & futureDate, vbInformation, "날짜 연산"
End Sub

 

 

 

◎ 예제 3: 날짜 형식 지정

 

예제에서는 [Date] 함수를 사용하여 현재 날짜를 가져온 다음, 원하는 형식으로 날짜를 표시합니다. [Format] 함수를 사용하여 날짜를 "yyyy년 mm월 dd일" 형식으로 변환하고 메시지 상자에 표시합니다.

 

Format 함수에 대한 사용법은 아래를 참고하세요.

https://mainia.tistory.com/7017

엑셀 VBA 함수 Format 이용해서 날짜, 시간, 숫자 형식 지정하기

  

Sub FormatDate()
    Dim currentDate As Date
    currentDate = Date
 
    Dim formattedDate As String
    formattedDate = Format(currentDate, "yyyy년 mm월 dd일")
 
    MsgBox "현재 날짜: " & formattedDate, vbInformation, "날짜 형식 지정"
End Sub