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

 
Previous Post 배치 파일 안에서, EXE 파일 실행 법; Batch File에서 실행파일 호출HTML 태그] 다운로드 링크 만드는 법, 파일에 링크하는 방법; File Download...Excel/엑셀 VBA] 2진수 10진수 변환 함수; 이진수 십진수; Dec To Bin ...Excel/엑셀] 2진수 10진수 변환 함수; 이진수 십진수; DEC2BIN / BIN2D...옛날 구글 검색 화면 캡처(스냅샷) - Google 초창기 1998 년도 Capture S...일본어판 지식 검색: 教えて!goo (Oshiete goo); 일본의, 네이버 지식인에 해...Java/자바] 숫자 앞에 공(0), 제로(영) 붙이기-추가. Leading Zero to...Java/자바] 날짜/시간 타임 스탬프 출력; Print ISO Time StampC언어] int64 사용법: 변수 선언, printf()로 출력; int64 : undec...C언어] long long 형의 의미, 사용법: 변수 선언, printf()로 출력; in...

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

Saturday, January 27, 2007

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

그리고 예를 들어, 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

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

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