매개변수: 당신은 그것을 믿습니까? 이 모듈은 다른 어떤 방법보다 수십 배 빠르게 작성할 수 있습니다! 매개변수는 다음과 같습니다:
1: 기준일은 며칠인가요?
2: (선택사항) 어떤 요일을 찾으시나요? 지정하지 않으면 기본값은 토요일입니다.
3: (선택 사항) 앞으로(과거) 검색해야 합니까, 아니면 뒤로(미래) 검색해야 합니까?
지정하지 않을 경우 기본값은 미래(future)에 검색하는 것입니다.
프로그램 코드
PublicFunctionSpecificWeekday(ByValDAsDate,OptionalByValWhatDayAsVbDayOfWeek=vbSaturday,OptionalGetNextAsBoolean=True)AsDate
특정Weekday=(((D-WhatDay GetNext)/7)-GetNext)*7 WhatDay
EndFunction
프로그램이 왜 이렇게 작성되었는지 알고 싶으십니까?
알고 계셨나요? VB에서 모든 날짜 함수의 기준일(0번째 날)은 1899년 12월 30일(토요일)이고, 첫 번째 날은 1899년 12월 31일(일요일)이므로 VB의 WeekDay 함수 알고리즘은 실제로 ( Date-1) 모드7 1.
반환 값
날짜
예:
다음 중 어느 날인지 알고 싶습니다.
지난 월요일: 특정Weekday(현재,vbMonday,False)
다음주 토요일: 특정주간(현재)
다음 금요일, 2000년 9월 9일: 특정Weekday("09/09/2000",vbFriday)->