Saturday, January 27, 2007

Excel/엑셀 VBA] 날짜/시간 (년월일 시분초) 구하기; Date Time Leading Zero

엑셀 비베로, 현재 날짜와 시간을 연월일 시분초 별로 나누어서 구하는 방법입니다.

그리고 예를 들어, 3일을 03일로 나타내는 것처럼, 날짜 시간의 앞자리에 영(0)을 붙이는 방법도 있습니다.

앞에 0 붙여, 년월일 시분초 구하기 예제

(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.

Sub Get_Date_Time_Example()

Dim s

' 년 구하기
s = Format(Date, "yyyy") & "년" ' 연도를 4자리로 표현
s = s & Chr(13)

s = s & Format(Date, "yy") & "년" ' 연도를 2자리로 표현
s = s & Chr(13) & Chr(13)

' 월 구하기
s = s & Format(Date, "mm") & "월" ' 빈 자리에 0 붙여 2자리 숫자로
s = s & Chr(13)

s = s & Format(Date, "m") & "월"
s = s & Chr(13) & Chr(13)

' 일 구하기
s = s & Format(Date, "dd") & "일" ' 빈 자리에 0 붙여 2자리 숫자로
s = s & Chr(13)

s = s & Format(Date, "d") & "일"
s = s & Chr(13) & Chr(13)

' 시 구하기 (24시간제)
s = s & Format(Time, "hh") & "시" ' 빈 자리에 0 붙여 2자리 숫자로
s = s & Chr(13)

s = s & Format(Time, "h") & "시"
s = s & Chr(13) & Chr(13)

' 분 구하기
s = s & Format(Time, "nn") & "분" ' 빈 자리에 0 붙여 2자리 숫자로
s = s & Chr(13)

s = s & Format(Time, "n") & "분"
s = s & Chr(13) & Chr(13)

' 초 구하기
s = s & Format(Time, "ss") & "초" ' 빈 자리에 0 붙여 2자리 숫자로
s = s & Chr(13)

s = s & Format(Time, "s") & "초"
s = s & Chr(13)

MsgBox s

End Sub

위의 예제를 실행하면 다음과 같은 내용이 메시지 박스에 출력됩니다:

---------------------------
Microsoft Excel
---------------------------
2007년
07년

01월
1월

27일
27일

07시
7시

08분
8분

22초
22초

---------------------------
확인
---------------------------

비베로 구한 날짜를 엑셀 시트나 워드 문서에 찍는 방법: ▶▶ 엑셀/MS워드 VBA매크로] 현재 날짜, 시간 출력 함수; Excel Word Date Time

▶▶ Excel/엑셀 VBA] 현재 날짜/시간 타임 스탬프 찍기; Time Stamp 24 / 12 Hours

▶▶ Excel/엑셀 VBA] 12시간제 시간 표현(AM-PM) 오전 오후 출력; 12-hour Clock

▶▶ Excel/엑셀 VBA] 1, 2, 3, 4분기 구하기 (사분기); Quarter of the Year

tag: office

엑셀 Excel | 워드 Word | VBA 매크로 | 오피스

0 Comments: