티스토리 뷰
Excel VBA/VBA 예제
excel vba 날짜 다루기 now, string -> dateObject date add
KyeongRok Kim 2018. 6. 19. 23:46Sub datetimeNow()
Date2 = DateTime.DateValue(DateTime.Now)
Debug.Print (Date2)
dateString = "20180619"
dateObjct = DateSerial(CInt(Left(dateString, 4)), CInt(Mid(dateString, 5, 2)), CInt(Right(dateString, 2)))
Debug.Print (dateObject)
End Sub
현재 날짜와 지정한 날짜의 차의를 계산 하고 싶을 때
1.현재 날짜를 dateObject로 만들어야 하고
2.원하는 날짜를 dateObject로 만들어서
그 차이를 계산 해야 한다.
그게 1번과 2번이다.
Sub test1()
res = calculateDay("2019-08-03", 2)
MsgBox (res)
End Sub
Function calculateDay(fromDate, addDay)
result = fromDate
result = DateAdd("d", addDay, fromDate)
calculateDay = result
End Function
날짜 더하기 dateAdd
날짜 빼기 dateSub
end.
728x90
'Excel VBA > VBA 예제' 카테고리의 다른 글
excel vba function 예제 - 사칙연산, 시트개수 세기 (0) | 2018.07.25 |
---|---|
열개수 숫자를 알파벳으로 ex)27 -> AA (0) | 2018.07.24 |
excel vba regexp (0) | 2018.06.02 |
excel vba array, redim예제 (0) | 2018.05.14 |
excel vba 차트 이동하기 (0) | 2018.04.21 |
공지사항
최근에 올라온 글
최근에 달린 댓글
- Total
- Today
- Yesterday
링크
TAG
- 도커각티슈박스
- vim
- 도커컨테이너
- docker container
- 도커티슈케이스
- 도커티슈박스
- docker container case
- Linux
- shellscript
- 도커각티슈케이스
- 개발자
- docker container tissue box
- docker container whale
- docker container tissue
- 이직
- Sh
- 2017 티스토리 결산
- 싱가폴
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | ||
6 | 7 | 8 | 9 | 10 | 11 | 12 |
13 | 14 | 15 | 16 | 17 | 18 | 19 |
20 | 21 | 22 | 23 | 24 | 25 | 26 |
27 | 28 | 29 | 30 | 31 |
글 보관함