엑셀 날짜더하기 및 시간더하기

게시판에 올려진 문제를 풀어보았습니다

주어진 특정 일자 시간에 원하는 시간간격을 일주일동안 더하는 문제입니다 

기준시간을 "(화) 오전 9:00" 라고 설정하면
다음과같이 35분씩 더하여 출력하는 문제입니다

"(화) 오전 10:10" 

"(화) 오전 10:45" 

"(화) 오전 11:20" 

"(화) 오전 11:55" 
....

엑셀의 몇가지 데이트함수를 이용하였습니다

소스입니다

시간더하기.xlsm

실행방법은 첫번째셀(1,1)에 원하는 날짜를 넣고 엔터키 입력후 
실행버튼을 누르시면 됩니다

Option Base 1

Sub test()

aDayName = Array("일", "월", "화", "수", "목", "금", "토")

s_date = Worksheets("Sheet1").Cells(1, 1).Value

t = DateValue(s_date) + TimeValue("09:00")

t_7 = DateAdd("d", 7, t)

Worksheets(1).Columns(3).ClearContents

iRow = 1

Do While t_7 > t

    mytime = Format(t, "AMPM hh:mm ")

    mydate = DateValue(Format(t, "yyyy mm dd"))

    Worksheets("Sheet1").Cells(iRow, 3).Value = "(" & aDayName(Weekday(mydate)) & ") " & mytime

    t = t + TimeValue("00:35")

    iRow = iRow + 1

Loop

End Sub