• 제품선택
  • 안녕하세요.

    CIMON입니다.

     

    스크립트 상에서 DateSerial 함수와 DateAdd 함수를 사용하여 전 월의 말일을 출력할 수 있습니다.

    다음의 예제를 참고하여 주시기 바랍니다.

     

    [예제]

    1. 데이터베이스에서 문자열 태그 ‘말일’을 생성합니다.

     

    2. [도구]-[스크립트]에 진입하여 다음과 같이 스크립트를 작성합니다.

    Sub EMonth()

    Dim sDate#

    sDate# = DateSerial(YYYY, M, 1)                                      ‘당 월 1일

    eDate# = DateAdd(“d”, -1, sDate#)                                   ‘당월 1일에 -1일(전 월 말일)

    endDate$ = Format(eDate#, “YYYY 년MM월DD일”)   ‘문자열 변환

    SetTagVal “말일”, endDate$                                               ‘말일 문자열태그에 Write

     End Sub

    =============================

    DateSerial(YYYY, M, D) 함수에는 금월의 1일 날짜를 입력합니다.

    DateAdd 함수의 “d”는 하루 단위를 의미하며, -1은 -1d(일)을 의미합니다.

    sDate#의 시간값에서 -1일 한 값을 endDate에 문자열 형태로 저장합니다.

    아래 그림과 같이 스크립트를 등록합니다.

     

    3. 버튼 오브젝트를 생성한 후, [동작정의]에서 ‘명령식 동작’을 선택하고 ‘RunScript(“EMonth”)’를 입력합니다.

    4. CimonX를 실행 후, 버튼을 클릭하면 문자열 태그에 전월의 말일 날짜가 출력되는 것을 확인할 수 있습니다.

     

    언제나 고객을 먼저 생각하는 CIMON이 되겠습니다.

    감사합니다.