mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
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)으로 나누어서 출력하는 방법입니다.

다음 예제와 같이, 오전/오후를 나타내는 형식이 여러가지가 있습니다.

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




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

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




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

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top