26강 - 시간차
이번에는 두 날짜 간의 차이를 비교하는 함수에 대해 설명하겠습니다.
쉽게 말하면 두 날짜 사이의 간격은 얼마나 되는지 표시해주는 함수인 것이죠.
날짜함수 중에서도 그 중요도가 높은 함수입니다.
총 3개의 인자가 필요합니다.
x1 인자의 경우 비교하고자 하는 기준을 정해주는 것입니다.
년도인지, 월인지 등을 말이죠.
x2 인자는 비교할 날짜 중 이전 날짜를 입력하고 x3는 나중 날짜를 입력해 줍니다.
즉 x2와 x3에는 차이를 비교하고자 하는 날짜가 입력되는 것이죠.
Sub F25_01()
Dim YY_DIF, HH_DIF As Double
YY_DIF = DateDiff(“YYYY”, “2015-01-01”, Now())
HH_DIF = DateDiff(“W”, “2015-01-01”, Now())
MsgBox YY_DIF & “ // “ & HH_DIF
End Sub
연습문제) 아래와 같이 직원 리스트가 있다. 생년월일을 기준으로 사원의 나이를 FOR문을 사용하여 출력하시오.
Sub F25_02()
Dim BIRTH_ARR(8), AGE_ARR(8) As Double
Dim I As Integer
YY_DIF = DateDiff(“YYYY”, “2015-01-01”, Now())
HH_DIF = DateDiff(“W”, “2015-01-01”, Now())
For I = 0 To 8
BIRTH_ARR(I) = Worksheets(“Sheet1”).Cells(3, I + 3).Value
AGE_ARR(I) = DateDiff(“YYYY”, BIRTH_ARR(I), Now())
Worksheets(“Sheet1”).Cells(4, I + 3).Value = AGE_ARR(I)
Next
End Sub
각 사원별 생년월일을 받아올 배열변수 BIRTH_ARR(8)를 선언하고 현재 시점과 비교한 결과를 역시 배열변수 AGE_ARR(8)에 담아 출력하는 코드입니다.
