책 내용 질문하기
사용자정의 함수 end select 썼는데,, 오류
도서
2024 시나공 컴퓨터활용능력 1급 실기 기본서
페이지
405
조회수
75
작성일
2024-07-31
작성자
소*진
첨부파일

엔드셀렉트 분명히 입력했는데도 왜저러죠? 다시 지웠다가 해봐도 안되네요,,;







답변
2024-08-06 07:01:10

안녕하세요.

Select case문이 3개가 있으면 End Select문도 3개가 있어야 합니다. 첫 번째만 Select Case이고 나머지는 Case Is로 작성해야 합니다.아래와 같이 작성하세요.

Public Function fn비고(입항일자 As Date)

Select Case 입항일자

Case Is < #4/1/2022#

fn비고 = "1사분기"

Case Is < #7/1/2022#

fn비고 = "2사분기"

Case Is < #10/1/2022#

fn비고 = "3사분기"

Case Else

fn비고 = "4사분기"

End Select

End Function

즐거운 하루 되세요.

  • 관리자
    2024-08-06 07:01:10

    안녕하세요.

    Select case문이 3개가 있으면 End Select문도 3개가 있어야 합니다. 첫 번째만 Select Case이고 나머지는 Case Is로 작성해야 합니다.아래와 같이 작성하세요.

    Public Function fn비고(입항일자 As Date)

    Select Case 입항일자

    Case Is < #4/1/2022#

    fn비고 = "1사분기"

    Case Is < #7/1/2022#

    fn비고 = "2사분기"

    Case Is < #10/1/2022#

    fn비고 = "3사분기"

    Case Else

    fn비고 = "4사분기"

    End Select

    End Function

    즐거운 하루 되세요.

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.