VBA – 오늘 날짜 가져오기(현재 날짜)

이 튜토리얼에서는 VBA에서 오늘 날짜를 가져오는 방법을 보여줍니다.

VBA 코드에서 오늘 날짜를 가져오는 방법에는 두 가지가 있습니다. Date() 함수 또는 Now() 함수를 사용하는 것입니다.

Date() 함수

Date() 함수는 오늘 날짜를 반환합니다. 아래 예제에서는 날짜 변수에 오늘 날짜를 할당하고 VBE 편집기의 직접실행 창에 날짜를 표시합니다.

  Dim dtToday as Date
  dtToday = Date()
  Debug.Print dtToday

메시지 박스에 날짜를 표시할 수도 있습니다.

Sub TestDate
  Dim dtToday as Date
  dtToday = Date()
  MsgBox "오늘 날짜는 " & dtToday & "입니다."
End Sub

Now() 함수

Now() 함수는 날짜 함수와 동일한 방식으로 작동하지만 시간을 포함합니다.

Sub TestDate()
  Dim dtToday As Date
  dtToday = Now()
  MsgBox "오늘 날짜는 " & dtToday & "입니다."
  End Sub

VBA로 날짜 서식 지정하기

Date() 및 Now() 함수 모두에서 날짜의 서식은 PC의 설정에 따라 결정되는 기본 스타일로 지정됩니다. VBA 서식 함수를 사용하여 이 서식을 사용자 지정할 수 있습니다. Format 함수는 문자열을 반환하므로 DATE 변수가 아닌 STRING 변수를 선언해야 합니다.

Sub TestDate()
   Dim dtToday As String
   dtToday = Format (Date, "dd mmmm yyyy")
   MsgBox "오늘 날짜는 " & dtToday & "입니다."
End Sub

 

사용자 지정 형식으로 시간 부분을 포함하도록 Now() 함수의 서식을 지정할 수도 있습니다.

Sub FormatNow()
  Dim dtToday As String
  dtToday = Format(Now(), "dd mmmm yy hh:mm:ss am/pm")
  MsgBox dtToday
End Sub

VBA로 두 날짜 비교하기

날짜 함수를 사용하여 오늘 날짜를 다른 날짜와 비교할 수도 있습니다. 이벤트까지 며칠이 남았는지 계산하고 싶을 수도 있습니다! 숫자를 반환하는 VBA DateDiff() 함수를 사용하여 이 작업을 수행할 수 있습니다. 이를 위해 반환된 값을 저장할 INTEGER 변수를 선언해야 합니다.

Sub TestDateDiff()
 Dim dtToday As Date
 Dim dtSomeDay As Date
 Dim iDays As Integer
 dtToday = Date
 dtSomeDay = "05/06/2023"
 iDays = DateDiff("d", dtToday, dtSomeDay)
 MsgBox "두 날짜 사이의 차이는 " & iDays & "입니다"
End Sub

날짜는 숫자로 저장되므로 두 번째 날짜에서 첫 번째 날짜를 빼면 동일한 답을 얻을 수 있습니다.

iDays = dtSomeDay - dtToday