안녕하세요.
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이 되겠습니다.
감사합니다.