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

 
Previous Post Excel/엑셀 VBA] 소수점 이하 자릿수 지정 출력; Decimal Point, Dec...Excel/엑셀 VBA] 숫자 앞에 공(0), 제로(영) 붙이기-추가. Leading Ze...Perl Cookbook (펄 쿡북;요리책) 무료로 보기: Free Online Versi...Excel/엑셀 VBA] 3자리마다 숫자 쉼표 넣기, 천 단위 콤마 찍기; Number C...C언어 VC] 도스 DIR 명령 구현; 파일 목록(리스트) 출력; 와일드 카드(Wild C...C언어] unsigned 타입은, unsigned int 인지 unsigned long 인...Excel/엑셀] 16진수 10진수 변환 VBA 함수로, 십육진수/십진수를 추가 기능 없이...Excel/엑셀 VBA] 16진수 상수 FF, 10 표현 방법; Hex Literal (십...Excel/엑셀 VBA] Trim, LTrim, RTrim; 양쪽, 왼쪽, 오른쪽 공백 제...Excel/엑셀 VBA] 숫자를 문자열로 변환; Number To String

Excel/엑셀 VBA] 오늘 요일 이름 구하기, 요일명 출력; Get-Print DAY OF THE WEEK

Wednesday, January 24, 2007

VBA로 오늘의 요일을 구하는 방법입니다. Format() 함수를 사용합니다. 한글로, 영문으로, 그리고 "요일 번호" 이렇게 3가지를 구합니다.

요일 번호는 요일을 숫자로 변환한 것인데, 날짜를 정교하게 다루는 루틴에서 필요합니다. 일요일은 1번에 해당입니다.


현재 요일명 얻기 예제


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

  '''''''''''''''''''''''''''''''''''''''''''
  ' 이 예제의 출력 결과는
  ' 오늘 요일이 수요일일 경우임
  '''''''''''''''''''''''''''''''''''''''''''

  ' 한글 요일 이름 구하기
  MsgBox Format(Date, "aaaa")
  ' 출력 결과: 수요일


  ' 영문 요일명 구하기
  MsgBox Format(Date, "dddd")
  ' 출력 결과: Wednesday


  ' 요일 번호 구하기: 일요일 = 1
  MsgBox Format(Date, "w")
  ' 출력 결과: 4

End Sub



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