[Excel VBA 기초-3] 변수에 날짜 대입하기 / 년 월 일 요일 출력하기

1. 변수에 날짜 대입하기 / 년 월 일 요일 출력하기

<소스코드>

Dim 날짜변수 As Date

날짜변수 = DateValue("2019-02-26")

MsgBox Format(날짜변수, "yyyy")

◆ 코드 설명

반응형

 

1) dim 날짜변수 As Date

  - 날짜변수라는 변수를 날짜형 변수로 선언

2) 날짜변수 = Datavalue("2019-02-26")

  - 날짜변수에 2019년2월26일을 입력

3) Format(날짜변수, "yyyy")

  - 날짜변수의 년도를 출력

 

Format	출력결과
yyyy	2019
yy	19
mm	02
dd	26
aaa	토
aaaa	토요일

 

 

2. 년 월 일 요일 출력하기

Sub disp_dateadd()

Dim add_substract As Integer

​

Application.DisplayAlerts = False '셀 병합시 왼쪽 셀값만 남는다는 경고창이 나오는데, 안나오도록 하는 것입니다.

​

Range("a2") = "오늘"

Range("a3") = Date

Range("a4") = Now

​

add_substract = Application.InputBox("가감할 숫자를 입력하세요.", Type:=2)

Range("b1") = add_substract

Range("b2") = Range("b1") & "일 후"

Range("c2") = Range("b1") & "일 전"

Range("b3").Value = DateAdd("d", add_substract, Date)

Range("c3").Value = DateAdd("d", -add_substract, Date)

​

Range("b1:c1").Merge

Range("b1:c3").HorizontalAlignment = xlCenter

​

Application.DisplayAlerts = True

End Sub

반응형

 

◆ 코드 설명

 1) dim add_substract As Integer

  - add_substract 란 변수를 정수형으로 선언합니다.