Sunday, January 28, 2007
Excel/엑셀 VBA] 12시간제 시간 표현(AM-PM) 오전 오후 출력; 12-hour Clock
엑셀뿐 아니라 프로그래밍에서는 기본적으로 24시간제(24-hour Clock; Military Time)를 사용합니다.
엑셀 비베에서 현재 시간을 12시간제(12-hour Clock)로, 즉 AM (오전; Ante Meridiem)과, PM (오후;Post Meridiem)으로 나누어서 출력하는 방법입니다.
다음 예제와 같이, 오전/오후를 나타내는 형식이 여러가지가 있습니다.
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
▶▶ Excel/엑셀 VBA] 현재 날짜/시간 타임 스탬프 찍기; Time Stamp 24 / 12 Hours
▶▶ Excel/엑셀 VBA] 날짜/시간 (년월일 시분초) 구하기; Date Time Leading Zero
엑셀 비베에서 현재 시간을 12시간제(12-hour Clock)로, 즉 AM (오전; Ante Meridiem)과, PM (오후;Post Meridiem)으로 나누어서 출력하는 방법입니다.
다음 예제와 같이, 오전/오후를 나타내는 형식이 여러가지가 있습니다.
12시간제, 오전 오후 표시 법
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Sub Time_AM_PM_Example()
Dim s
' 24시간제
s = Format(Time, "hh:mm:ss")
MsgBox s
' 출력 결과: 16:16:38
' 12시간제 (AM 또는 PM 형식)
s = Format(Time, "hh:mm:ss AM/PM")
MsgBox s
' 출력 결과: 04:16:49 PM
' 12시간제 (한글로, 오전 오후 형식)
s = Format(Time, "hh:mm:ss AMPM")
MsgBox s
' 출력 결과: 04:16:55 오후
' 12시간제 (소문자로, am 또는 pm 형식)
s = Format(Time, "hh:mm:ss am/pm")
MsgBox s
' 출력 결과: 04:16:58 pm
' 12시간제 (A/P 1글자로 표기)
s = Format(Time, "hh:mm:ss A/P")
MsgBox s
' 출력 결과: 04:17:01 P
' 12시간제 (AM/PM을 초단위 뒤에 찰싹 붙이기)
s = Format(Time, "hh:mm:ssAM/PM")
MsgBox s
' 출력 결과: 04:17:05PM
' 12시간제 (가장 간단히 표현)
s = Format(Time, "hh:mm:ssa/p")
MsgBox s
' 출력 결과: 04:18:05p
End Sub
Dim s
' 24시간제
s = Format(Time, "hh:mm:ss")
MsgBox s
' 출력 결과: 16:16:38
' 12시간제 (AM 또는 PM 형식)
s = Format(Time, "hh:mm:ss AM/PM")
MsgBox s
' 출력 결과: 04:16:49 PM
' 12시간제 (한글로, 오전 오후 형식)
s = Format(Time, "hh:mm:ss AMPM")
MsgBox s
' 출력 결과: 04:16:55 오후
' 12시간제 (소문자로, am 또는 pm 형식)
s = Format(Time, "hh:mm:ss am/pm")
MsgBox s
' 출력 결과: 04:16:58 pm
' 12시간제 (A/P 1글자로 표기)
s = Format(Time, "hh:mm:ss A/P")
MsgBox s
' 출력 결과: 04:17:01 P
' 12시간제 (AM/PM을 초단위 뒤에 찰싹 붙이기)
s = Format(Time, "hh:mm:ssAM/PM")
MsgBox s
' 출력 결과: 04:17:05PM
' 12시간제 (가장 간단히 표현)
s = Format(Time, "hh:mm:ssa/p")
MsgBox s
' 출력 결과: 04:18:05p
End Sub
▶▶ Excel/엑셀 VBA] 현재 날짜/시간 타임 스탬프 찍기; Time Stamp 24 / 12 Hours
▶▶ Excel/엑셀 VBA] 날짜/시간 (년월일 시분초) 구하기; Date Time Leading Zero
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home